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Introduction 


This book describes a number of programs, written in the Atari® BASIC programming language. These 
programs perform a variety of common practical tasks. 

You can use this book whether or not you know how to write programs in Atari BASIC. 

We do not teach you how to program in Atari BASIC; there are many books that do that. But we do 
describe programs carefully and include user examples with the program listings. So if you are not 
familiar with Atari BASIC, simply copy the program listings into your computer, then run the programs 
as illustrated in the examples. 

Remarks are included in the listings to help programmers understand how each program works. They 
will also assist you in identifying parts of programs that you may be able to use in other programs you 
write. Remark statements precede the line(s) on which they comment. REM statements should be omitted 
when you enter programs, since they are ignored by the computer and simply use up memory. 

All programs can be run using a Teletype™ or similar input/output device with a line width as short as 
72 characters. If the line width on your output device is less than 72 characters, you may want to alter the 
print statements within programs that print longer lines. 

Certain programs will require additional programming if you use a CRT display or separate printing 
device for output. If using a CRT, you will probably want to put a pause in some programs after 
displaying one screenful of data; otherwise, the data will be displayed faster than you can read it. If using 
a separate printing device for your output, you may need to add print device select statements to the 
programs. 

All programs in this book have been tested, run and listed on an Atari 800™ computer system. They 
have also been tested and run on an Atari 400™. 


Program Errors 

If you encounter an error or program difficulty which you believe is not your fault, we would like to hear 
about it. Please write the publishers, and include the following information: 

• A description of the error 

• Data entered which caused the error 

• A source listing of your program, from your computer (if possible) 

• Any corrections you have 


Atari is a registered trademark of Atari, Inc. 
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Future Value of an Investment 


This program calculates a future value of an investment when interest is a factor. You must provide the 
amount of the initial investment, the nominal interest rate, the number of compounding periods per 
year, and the number of years of investment. 

Assuming there are no additional deposits and no withdrawals, the future value is based on the 
following formula: 

T - P (l + i/N) N ' Y 

where: T = total value after Y years (future value) 

P - initial investment 
i - nominal interest rate 

N - number of compounding periods per year 
Y - number of years 

Examples: 

Carl makes an investment of $6800.00 at 9.5%. If interest is compounded quarterly, what will be the 
value of Carl’s investment in ten years? 

Ms. Smith purchases a piece of property for $16,050.00. The value of property is rising at an average of 
7% per year. What may Ms. Smith expect her property to be worth in five and a half years? 

FUTURE VALUE OF AN INVESTMENT 


INITIAL INVESTMENT? 6800 
NOMINAL INTEREST RATE? 9.5 
COMPOUNDING PERIODS PER YEAR? 4 
NUMBER OF YEARS? 10 
FUTURE VALUE = *17388.64 


MORE DATA? (1=YES, 0=NO)? 1 


INITIAL INVESTMENT? 16050 
NOMINAL INTEREST RATE? 7 
COMPOUNDING PERIODS PER YEAR? 
NUMBER OF YEARS? 5.5 


FUTURE VALUE = *2 


o o ^ 



1 


MORE DATA? (1=YES, 0=NO> 


O 


5 GRAPHICS O 

10 PRINT "FUTURE VALUE OF AN INVESTMENT" 

20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER 

30 PRINT "INITIAL INVESTMENT"; 

40 INPUT P 

50 PRINT "NOMINAL. INTEREST RATE"; 

60 INPUT I 

70 PRINT "COMPOUNDING PERIODS PER YEAR"; 


INPUT 


80 INPUT N 

90 PRINT ^NUMSEP OF "YEARS"? 
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.108 REM - CALCULATE INTEREST RATE PER PERIOD? 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 1=1/N/100 

119 REM - CALCULATE FUTURE VALUE BY FORMULA 

120 T=P*< 1 + 1 K<N*Y> 

129 REM - ROUND OFF TO NEAREST CENT, PRINT 

130 PRINT "FUTURE VALUE = $"? 

135 PRINT INT(T*100+0.5)/100 
140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA? <1=YES, 0=N0)"? 

160 INPUT X 

170 IF X=1 THEN 20 
ISO END 



OPTION 

This program allows you to enter a term of investment in whole years or decimal parts only. In some 
cases you may wish to enter the term of investment in years and months rather than just years The 
necessary program changes follow the example listed below. 


Example: 


Herb invests $12,000.00 at 8% interest. Interest is compounded quarterly. What is the value of his 
investment at the end of ten years and seven months? 


FUTURE VALUE OF AN INVESTMENT 

INITIAL INVESTMENT? 12000 
NOMINAL INTEREST RATE? 8 
COMPOUNDING PERIODS PER YEAR? 4 
NUMBER OF YEARS, MONTHS? 10,7 
FUTURE VALUE = $27749.5 

MORE DATA? <1=YES, 0=N0>? 0 

1 REM -- OPTION 90-105 
5 GRAPHICS 0 

10 PRINT "FUTURE VALUE OF AN INVESTMENT" 

90 f*R I NT “NUMBER OF YEARS, MONTHS"? 

100 TNPUT:;Y0,M 

T04 ''REM ■ r. 'OAL.CUL.ATE- YEARS FROM YEARS AND MONTHS 
105 12#Y0+M>/12 

• . .. •• ' ,{ ; 

180 END 
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Future Value of Regular Deposits (Annuity) 


This program calculates a future value when deposits are made regularly. All deposits are equal. You 
must provide the amount of each deposit, the number of deposits per year, the number of years, and the 
nominal interest rate. 

Assuming that interest is compounded with each deposit, the calculation is based on the following 
formula: 



(l + i/N) N ’ Y 
i/N 



where: T = total value after Y years (future value) 
R = amount of regular deposits 
N = number of deposits per year 
Y = number of years 
i = nominal interest rate 


Examples: 

$50.00 is transferred each month from Matt’s checking account to a Christmas Club savings account 
with 5% interest. How much will Matt receive at the end of the year? 

Diana makes annuity payments of $175.00. The interest is 5.5%. What amount will Diana have 
accumulated in 15 years ? 


FUTURE VALUE OF REGULAR DEPOSITS 


AMOUNT OF REGULAR DEPOSITS? 50 
NOMINAL INTEREST RATE? 5 

# OF DEPOSITS PER YEAR? 12 
NUMBER OF YEARS?' 1 
FUTURE VALUE = *613.94 

MORE DATA? <1=YES, 0=NO)? 1 

AMOUNT OF REGULAR DEPOSITS? 175 
NOMINAL INTEREST RATE? 5.5 

# OF DEPOSITS PER YEAR? 1 
NUMBER OF YEARS? 15 
FUTURE VALUE = *3921.52 

MORE DATA? <1-YES* 0=NO>? O 


5 GRAPHICS O 

10 PRINT "FUTURE VALUE OF REGULAR DEPOSITS" 

20 PRINT 

2 c/ REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 
30 PRINT "AMOUNT OF REGULAR DEPOSITS"? 

40 INPUT R 

50 PRINT "NOMINAL INTEREST RATE"? 

60 INPUT I 

70 PRINT "# OF DEPOSITS PER YEAR"? 
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80 INPUT N 

90 PRINT "NUMBER OF YEARS"; 

100 INPUT Y 

108 REM - CALCULATE INTEREST RATE PER DFPOSIT, 

109 REM - CONVERT FROM PERCENT TO DECIMAI 

110 r-I/N/J.OO 

119 REM - CALCULATE FUTURE VALUE BY FORMULA 

120 T=R* ( < 1 +1 > (N*Y) -1 ) /1 

129 REM - ROUND OFF TO NEAREST CENT, PRTNT 

130 PRINT "FUTURE VALUE = 

135 PRINT INT ( T*100+0.5)/100 
140 PRINT 

149 REM -- RESTART UR ENEt PROGRAM? USER INPUT REOUJRED 

150 PRINT "MORE DATA? <1=YES, 0=NO)»; 

160 INPUT X 

170 IF X=1 THEN 20 
180 END 



OPTION 


You may wish to enter the term of investment in years and months rather than years. The necessary 
program changes are listed following the example below. 


Example: 

How much will Ron receive in ten years and five months if he transfers $50.00 each month into a trust 
fund with 5% interest? 

FUTURE VALUE OF REGULAR DEPOSITS 

AMOUNT OF REGULAR DEPOSITS? 50 
NOMINAL INTEREST RATE? 5 
# OF DEPOSITS PER YEAR? 12 
NUMBER OF YEARS, MONTHS? 10,5 
FUTURE VALJJE = $8179.3 


MORE DATA? <1=YES, 0=N0>? 0 

1 REM - OPTION 90-105 
5 GRAPHICS O 

10 PRINT "FUTURE VALUE OF REGULAR DEPOSITS 


il 


90 PRINT "NUMBER OF YEARS, MONTHS"; 

100 INPUT YO,M 

104 REM - CALCULATE YEARS FROM YEARS AND 

105 Y=(12*YO+M)/12 

108 REM - CALCULATE INTEREST RATE PER DEPOSIT, 


180 END 
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Regular Deposits 


This program calculates the amount required as a regular deposit to provide a stated future value in a 
specified time period. All deposits are equal. It is necessary for you to supply the future value, the 
nominal interest rate, the number of deposits per year, and the number of years. 

The calculation for regular deposits is based on the following formula: 



T ( _ m _ \ 


where: R - amount of regular deposit 
T - future value 
/ - nominal interest rate 
N - number of deposits per year 
Y - number of years 


Example: 

Mary would like $1000.00 at the end of one year in a savings account. How much must she deposit each 
month at 8% interest to achieve this? 


REGULAR DEPOSITS 


TOTAL VALUE AFTER Y YEARS? 
NOMINAL INTEREST RATE? 8 
# OF DEPOSITS PER YEAR? 12 
NUMBER OF YEARS? 1 
REGULAR DEPOSITS = $80.32 


1OOO 


MORE DATA? <1=YES, 0=N0>? O 


5 GRAPHICS O 

10 PRINT "REGULAR DEPOSITS" 

20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "TOTAL VALUE AFTER Y YEARS"? 

40 INPUT T 

50 PRINT "NOMINAL INTEREST RATE"? 

60 INPUT I 

70 PRINT "# OF DEPOSITS PER YEAR"? 

80 INPUT N 

90 PRINT "NUMBER OF YEARS"? 

100- INPUT Y 

108 REM -- CALCULATE INTEREST RATE PER DEPOSIT? 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 I=I/N/100 

119 REM - CALCULATE AMOUNT OF REGULAR DEPOSIT BY FORMULA 

120 R=T# I / ( ( I +1 ) *■'• (N*Y) — 1 ) 

129 REM - ROUND OFF TO NEAREST CENT, PRINT 

130 PRINT "REGULAR DEPOSITS = $"? 

135 PRINT INT(R*l00+0.5)/100 
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140 PRINT 

149 REM - RESTART OR END PROGRAM? USER 

150 PRINT "MORE DATA? (t=YES, 0=N0)”; 
160 INPUT X 

170 IF X=1 THEN 20 
180 END 


INPUT REQUIRED 



OPTION 


You may wish to enter the term of investment in years and months rather than 
program changes are listed following the example below. 


years. The necessary 


Example: 


Ed would like to save $2000.00 for a new motorcycle. He would like to achieve this 
five months. How much must he deposit each month if his interest is 8%? 


amount in a year and 


REGULAR DEPOSITS 


TOTAL VALUE AFTER Y YEARS? 2000 
NOMINAL INTEREST RATE? 8 
# OF DEPOSITS PER YEAR? 12 
NUMBER OF YEARS, MONTHS? 1,5 
REGULAR DEPOSITS = *111.5 


MORE DATA? (l=YES, 0=N0>? O 

1 REM - OPTION 90-105 
5 GRAPHICS 0 

10 PRINT "REGULAR DEPOSITS" 


80 INPUT N 

90 PRINT "NUMBER OF YEARS, MONTHS"? 

100 INPUT YO,M 

104 REM — CALCULATE YEARS FROM YEARS AND MONTHS 

105 Y»<12*Y0+M)/12 

108 REM - CALCULATE INTEREST RATE PER DEPOSIT? 


180 END 





Regular Withdrawals from an Investment 


This program calculates the maximum amount which may be withdrawn regularly from an investment 
over a specified time period. All withdrawals are assumed to be equal. You must provide the amount of 
the initial investment, the nominal interest rate, the number of withdrawals per year, and the number of 
years. 

The maximum amount of withdrawals is calculated by the following formula: 

_ UK _ + ±\ 

(1 + i/N) N ' Y - 1 Nf 

where: R - amount of regular withdrawal 
P - initial investment 
i - nominal interest rate 
N = number of withdrawals per year 
Y - number of years 

Because this program calculates a maximum amount, a balance of $0.00 will be left in your account at 
the end of the time period. You may withdraw any lesser amount under the same specifications and 
leave a remaining balance in your account. 



Example: 

David invests $8000.00 at 9.5%. He plans to make regular withdrawals every month for ten years, 
leaving nothing at the end. How much should he withdraw each time? 

REGULAR WITHDRAWALS FROM AN INVESTMENT 

INITIAL INVESTMENT? 8000 

NOMINAL INTEREST RATE? 9.5 

NUMBER OF WITHDRAWALS PER YEAR? 12 

NUMBER OF YEARS? 10 

AMOUNT OF WITHDRAWALS = *103.52 

MORE DATA? (1=YES, 0=NO>? O 


5 GRAPHIC 
10 PRINT 
20 PRINT 

29 REM - 

30 PRINT 
40 INPUT 
50 PRINT 
60 INPUT 

70 PRINT 

71 PRINT 


S 0 

"REGULAR WITHDRAWALS FROM AN 


INVESTMENT 


tl 


STATEMENTS 30 TO 100 REQUEST USER INPUT 
"INITIAL INVESTMENT": 


P 

"NOMINAL. INTEREST RATE"; 

I 

"NUMBER OF WITHDRAWALS "; 
"PER YEAR"; 


80 INPUT N 

90 PRINT "NUMBER OF YEARS"; 

100 INPUT Y 

108 REM - CALCULATE INTEREST RATE PER WITHDRAWAL; 

109 REM - CONVERT FROM PERCENT TO DECIMAL 
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1 10 

119 

120 
125 

129 

130 
139 
1 40 

149 

150 
160 
170 
180 


I=I/N/100 

REM - CALCULATE REGULAR WITHDRAWAL BY FORMULA 
R=P*< I / ( ( 1 + 1 )'■"( N#Y) -1 ) +1 ) 

K> INT(R*100+0,5)/l00 

REM - ROUND OFF TO NEAREST CENT, PRINT 
PRINT "AMOUNT OF WITHDRAWALS = $";« 

REM - PRINT BLANK LINE TO SEPARATE QUESTION FROM DATA 
PRINT 

REM -- RESTART OR END PROGRAM? USER INPUT REQUIRED 
PRINT "MORE DATA? <1=YFS, 0=N0>"; " 

INPUT X 

IF X=1 THEN 20 
END 



OPTION 


bC m ° re conven,e ^ t to enter * he Period of investment in years and months rather than just years, 
he necessary program changes are listed following the example below. 


Example: 


H °^ ™ uch „ could _ be Wlt hdrawn each week if you have an investment of $8000.00 at 9.5% interest to be 

withdrawn from for ten years and five months? mieresi to ne 

REGULAR WITHDRAWALS FROM AN INVESTMENT 

INITIAL INVESTMENT? 8000 
NOMINAL INTEREST RATE? 9 .. 5 
NUMBER OF WITHDRAWALS PER YEAR" 1 52 
NUMBER OF YEARS, MONTHS? 10,5 
AMOUNT OF WITHDRAWALS = *23.28 

MORE DATA? <1=YES, 0=N0>? 0 


1 REM -- OPTION 90-105 
5 GRAPHICS 0 

lO FRINT "REGULAR WITHDRAWALS FROM AN INVESTMENT" 


80 INPUT N 

90 PRINT "NUMBER OF YEARS, MONTHS"? 

100 INPUT YO,M 

104 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

105 Y=(12*Y0+M>/12 

108 REM - CALCULATE INTEREST RATE PER WITHDRAWAL; 


180 END 
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Initial Investment 


This program calculates the investment necessary to provide a stated future value in a specified time 
period. You must enter the future value of the investment, the number of years of investment, the 
number of compounding periods per year, and the nominal interest rate. 

The formula used to calculate the initial investment is as follows: 

e '~ „ 

where: P - initial investment 
T - future value 

N = number of compounding periods per year 
Y - number of years 
i = nominal interest rate 


Examples: 

How much must you invest at 8.5% to produce $10,000.00 at the end of ten years if interest is 
compounded quarterly? 

Merchant Savings wishes to sell a bond that will be worth $5000.00 five years from the purchase date 
Interest will be 7.9% compounded daily. How much must the bank charge for the bond? 

INITIAL INVESTMENT 

TOTAL VALUE AFTER V YEARS? 1.0000 
# OF COMPOUNDING PERIODS PER YEAR? 4 
NUMBER OF YEARS? 10 
NOMINAL INTEREST RATE? 8.5 
INITIAL INVESTMENT = *4312.38 


MORE DATA? <1=YES, 0=NO> 

TOTAL VALUE AFTER Y YEAR 
# OF COMPOUNDING PERIODS 
NUMBER OF YEARS? 5 
NOMINAL INTEREST RATE? 7 
INITIAL INVESTMENT = *33 


1 


S? 5000 
PER YEAR? 

. 9 

68.59 


MORE DATA? (1=YES, 0=N0>? 0 



5 GRAPHICS 0 

10 PRINT “INITIAL INVESTMENT" 


20 PRINT 

2? REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 
30 PRINT "TOTAL VALUE AFTER Y YEARS"; 

40 INPUT T 

50 PRINT "# OF COMPOUNDING PERIODS PER YEAR"; 


60 INPUT N 

70 PRINT "NUMBER OF YEARS"; 
80 INPUT Y 
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90 
100 
108 
.109 
110 

119 

120 

129 

130 
135 
140 

149 

150 
160 
170 
180 


PRINT "NOMINAL INTEREST RATE"? 

INPUT I 

REM - CALCULATE INTEREST RATE PER PERIOD 

REM - CONVERT FROM PERCENT TO DECIMAL 
I=I/N/100 

REM - CALCULATE INITIAL INVESTMENT BY FORMULA 
P—T / < 1 + 1 )""<N*Y> " " 

REM - ROUND OFF TO NEAREST CENT, PRINT 
PRINT "INITIAL INVESTMENT = *"? 

PR I NT I NT (p* 100+0. 5) /100 


PRINT 

REM - RESTART OR END PROGRAM"' USER 
PRINT "MORE DATA? <1=YES, 0=N0)»; 
INPUT X 

IF X=1 THEN 20 
END 


INPUT REQUIRED 





The program above allows you to enter a period of investment of whole years and decimal parts onlv 
You may wish to enter the period of investment in years and months rather than just years^heprogram 
changes necessary are listed following the example below J y 6 program 


Example: 


^oontmfh^r^ 681 VTJrr' mgS bank - In three years and eight months she would like to have 
$4000.00 in her account. If 8% interest is compounded monthly, what amount must Mary invest? 


INITIAL INVESTMENT 


TOTAL VALUE AFTER Y YEARS? 4000 

# OF COMPOUNDING PERIODS PER YEAR'"' 12 
NUMBER OF YEARS, MONTHS? 3,8 
NOMINAL INTEREST RATE? 8 
INITIAL INVESTMENT = $2986 


MORE DATA? 


<1=YES, 0=N0)? O 


1 REM - OPTION 70-85 
5 GRAPHICS 0 

10 PRINT "INITIAL INVESTMENT" 


60 


80 

84 

85 
90 


INPUT N 

PRINT "NUMBER OF YEARS, MONTHS"? 
INPUT YO,M 

REM - CALCULATE 

Y= (12*Y0+M > /12 ... 

PRINT "NOMINAL INTEREST RATE"? 





180 END 
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Minimum Investment for Withdrawals 


This program calculates the minimum investment required to allow regular withdrawals over a specified 
time period. The amount calculated is dependent upon the amount of each withdrawal, the number of 
withdrawals per year, the number of years, and the nominal interest rate on the investment. All 
withdrawals are equal. 

Only the least amount necessary for your investment is calculated; the program assumes a balance of 
$0.00 to be left at the end of the time period. Any investment larger than the amount calculated will also 
enable you to withdraw the desired amount, but leave a remaining balance. 

Assuming that interest is compounded with each withdrawal, the calculation is based on the following 
formula: 


p _ R'N 

i 



_ 1 _ 

(1 + i/N) 



where: P = initial investment 

R = amount of regular withdrawal 
i - nominal interest rate 
N - number of withdrawals per year 
Y = number of years 


Example: 

How much must you invest at 6% interest to allow monthly withdrawals of $100.00 for five years? 
MINIMUM INVESTMENT FOR WITHDRAWALS 

AMOUNT OF WITHDRAWALS? ICO 
NOMINAL INTEREST RATE? 6 
# OF WITHDRAWALS PER YEAR? 12- 
NUMBER OF YEARS? 5 
MINIMUM INVESTMENT = *5172.56 

MORE DATA? (1=YES, 0=NO>? O 


5 GRAPHICS O 

10 PRINT "MINIMUM INVESTMENT FOR WITHDRAWALS" 

20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "AMOUNT OF WITHDRAWALS"; 


40 INPUT R 

50 PRINT "NOMINAL INTEREST RATE"; 

60 INPUT I 

70 PRINT "# OF WITHDRAWALS PER YEAR"; 


80 INPUT N 

90 PRINT "NUMBER OF YEARS"! 

10G INPUT Y 

109 REM - CONVERT FROM PERCENT TO DECIMAL 


110 1 = 1/100 

119 REM - CALCULATE MINIMUM INVESTMENT BY FORMULA 
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120 P=R*N/ T*( 1.-1/ ( ( l + I/'N) (|\|*Y ) ) ) 

3 29 REM - ROUND OFF TO NEAREST CENT, PRINT 

"MINIMUM INVESTMENT - $"; 

I NT ( 100*P+0. 5) /1.00 


130 PRINT 
135 PRINT 


140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA? (1“YES? 0=N0>"; 

160 INPUT X 

170 IF X = 1 THEN 20 
180 END 



OPTION 

It may be more convenient to enter the term of investment in years and months rather than years. The 
necessary program changes are listed following the example below. 


Example: 


Tony withdrew $250.00 monthly for six years and five months. 
6% interest? 


How much was his initial investment at 


MINIMUM INVESTMENT FOR WITHDRAWALS 

AMOUNT OF WITHDRAWALS? 250 
NOMINAL INTEREST RATE? 6 
# OF WITHDRAWALS PER YEAR? 12 
NUMBER OF YEARS, MONTHS? 6,5 
MINIMUM INVESTMENT = $15944.82 


MORE DATA? 


<1=YES, 0=N0>? 


0 


1 REM -- OPTION 90-105 
5 GRAPHICS 0 

10 PRINT "MINIMUM INVESTMENT FOR WITHDRAWALS" 




: -/•'' °. Y-> >.• '■ • •- 


.■•Sr;-’*? 




-f;- 

---r? vv. •• :• • 

> >- 4 - 


80 INPUT N 

90 PRINT "NUMBER OF YEARS, 

100 INPUT YO, M . 

104 REM - CALCULATE YEARS FROM YEARS AND MONTHS 


105 Y=<12*Y0+M)/12 
109 REM - CONVERT FROM PERCENT TO DECIMAL 


180 END 
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Nominal Interest Rate on Investments 


This program calculates the nominal interest rate for a known initial investment which amounts to a 
known future value in a specified period of time. The nominal interest rate is usually subdivided for 
compounding purposes. 

“Nominal Interest Rate” is based on the following formula: 


l 

/ = N(T/P) N ' Y - N 


where: i = 
P = 
T = 
N = 
Y = 


nominal interest rate 
initial investment 
future value 

number of compounding periods per year 
number of years 


The nominal interest rate is expressed as a yearly rate even though the interest rate used when 
compounding interest is i/N. The nominal interest rate will be less than the effective interest rate when 
interest is compounded more than once a year. This is because the nominal rate stated does not take into 
account interest compounded on interest earned in earlier periods of each year. For example, the 
schedule of earned interest on $100.00 at 5% compounded quarterly would be: 


Period 

Balance 

i/l 00 
N 

Interest 

New 

Balance 

1 

$100.00 

• 0.0125 

= $1.25 

$101.25 

2 

$101.25 

• 0.0125 

= $1.27 

$102.52 

3 

$1.02.52 

• 0.0125 

= $1.28 

$103.80 

4 

$103.80 

• 0.0125 

= $1.30 

$105.10 


The effective interest rate in the example is 5.1%, although the nominal rate is 5%. 


Examples: 

Dick invests $945.00 in a savings bank. Four and a half years later his investment amounts to $1309.79. 
If interest is compounded monthly, what is the nominal interest rate offered by the bank? 

Jane invests $3000.00. Ten years later she has earned $1576.00 in interest. If interest is compounded 
each month, what is the nominal interest rate on the account? 

NOMINAL INTEREST RATE ON INVESTMENTS 


PRINCIPAL? 945 

TOTAL VALUE? 1309.79 

NUMBER OF YEARS? 4.5 

# OF COMPOUNDING PERIODS PER YEAR? 

NOMINAL INTEREST RATE =7.276104'/. 



MORE DATA? <1=YES, 0=NO>? 1 
PRINCIPAL? 3000 
TOTAL VALUE? 4576 
NUMBER OF YEARS? 10 

# OF COMPOUNDING PERIODS PER YEAR? 
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NOMINAL INTEREST RATE =4.2295447. 
MORE DATA? (1=YES, 0=N0>? 0 


5 GRAPHICS O 

10 PRINT "NOMINAL INTEREST RATE ON INVESTMENTS" 

20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "PRINCIPAL"; 

40 INPUT P 

50 PRINT "TOTAL VALUE"; 

60 INPUT T 

70 PRINT "NUMBER OF YEARS"; 

SO INPUT Y 

90 PRINT "# OF COMPOUNDING PERIODS 
95 PRINT "PER YEAR"; 

100 INPUT N 

109 REM - CALCULATE NOMINAL INTEREST RATE BY FORMULA, 

110 I2=N*( (T/P)'-( 1/(N*Y) >--l ) *• 100 

120 PRINT "NOMINAL INTEREST RATE ="; 

121 PRINT I2;"7." 

130 PRINT 

139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

140 PRINT "MORE DATA? <1=YES, 0=NO>"; 

150 INPUT X 

160 IF X=1 THEN 20 
170 END 


PR I NT 
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Effective Interest Rate on Investments 


This program calculates the effective interest rate for a known initial investment which amounts to a 
known future value in a specified period of time. This rate expresses the actual rate of interest earned 
annually on the investment. 

The effective interest rate is calculated by the following formula: 

effective _ / future value \* /years ^ ^ 
interest rate \ initial investment / 

You may calculate the effective interest rate on amounts you have already invested and accrued 
interest upon. Or you may calculate the effective interest rate necessary to enable a principal to reach a 
hypothetical value in a specified amount of time. For instance, if you invest $5000.00 in a bank and 
desire $6800.00 after six years, you will predict the effective interest rate the bank must pay in order to 
achieve this. 

“Effective Interest Rate” may also be used to calculate the effective percent of depreciation of an 
investment. Take your car, for example. If you bought it for $7534.00 and sold it for $3555.00 three years 
later, you will find that its actual depreciation (a negative interest rate) was approximately 22% each year. 


Examples: 

Dick deposits $945.00 in a savings bank. Four and a half years later his account has $1309.79. What 
actual percent of his initial investment did the bank pay annually? 

Jane bought her car in 1970 for $7534.84 and sold it in 1973 for $3555.00. What was its effective rate of 
depreciation? 


EFFECTIVE INTEREST RATE ON INVESTMENTS 


INITIAL INVESTMENT? 945 
TOTAL VALUE AFTER Y YEARS? 
NUMBER OF YEARS? 4.5 
ANNUAL INTEREST RATE =7.52 


1309.79 
3751*/. 


MORE DATA? 


( 1 =YE 



0=NO 



1 


INITIAL INVESTMENT? 7534.84 
TOTAL VALUE AFTER Y YEARS? 
NUMBER OF YEARS? 3 
ANNUAL INTEREST RATE =-22 


•“iircrcr 
• 2 ' ■— ^ 3 •— 


150613% 


MORE DATA? (1=YES, 0=NO > 


O 


5 GRAPHICS O 

j0~PRINT""EFFECTIVE INTEREST RATE ON INVESTMENTS 
20 PRINT 

29 REM - STATEMENTS 30 TO 80 REQUEST USER INPUT 

30 PRINT "INITIAL INVESTMENT"; 


40 INPUT P 

50 PRINT "TOTAL VALUE AFTER Y YEARS"; 
60 INPUT T 


It 
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70 PRINT "NUMBER OF YEARS"; 
80 INPUT Y 


89 REM - CALCULATE EFFECTIVE INTEREST RATE, PRINT 

90 PRINT "ANNUAL INTEREST RATE ="; 

99 REM -- PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 

100 PRINT < (T/P) •••< 1/Y>-1 ) *100; 

109 PRINT 


110 REM - 
120 PRINT 
130 INPUT 


RESTART OR END PROGRAM? USER 
"MORE DATA? <1=YES, 0=N0)"; 

X 


INPUT REQUIRED 


140 IF X=1 THEN 20 
150 END 
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Earned Interest Table 


This program calculates and prints an earned interest table for investments. The schedule contains the 
following outputs: 

1. Periodic balance 

2. Interest accumulated between two periods 

3. Total interest accumulated 

4. Effective interest rate 

These outputs may be calculated for a single investment or for an initial investment with regular 
deposits or withdrawals. If the table is to be tabulated for a single investment, you must provide the 
amount of the initial investment, the nominal interest rate, and the number of compounding periods per 
year. Your new balance will be printed a maximum of four times per year. If interest is compounded less 
than four times per year, your new balance will be posted with each interest computation. 

If the table is tabulated for regular deposits or withdrawals, you must provide the amount of the initial 
investment, the nominal interest rate, the number of deposits or withdrawals per year, and their 
amount. In this case it is assumed that interest is compounded daily (360-day year). Your new balance 
will be printed at each deposit or withdrawal, 


Examples: 

Sally invests $2000.00 at 9.5% in a trust fund for ten years. Interest is compounded monthly. What is her 
yearly balance and earned interest for the last two years? 

John deposits $1000.00 at 8% in a passbook savings account. From each monthly paycheck $50.00 is 
deposited in this account. What is the earned interest table for the first year of this account? 

Ted deposits $1000.00 at 8% in his savings. Each quarter he withdraws $150.00. What is the earned 
interest table for the first year of this account? 

EARNED INTEREST TABLE 

PRINCIPAL? 2000 

NOMINAL INTEREST RATE? 9.5 

# OF DEPOSITS/WITHDRAWALS PER YEAR? O 

# OF COMPOUNDING PERIODS PER YEAR? 12 
START WITH WHAT YEAR? 9 

END PRINTING WITH WHAT YEAR? 10 


EARNED INTEREST TABLE 
PRINCIPAL $2000 AT 9.57. NOMINAL FOR 
EFFECTIVE INTEREST RATE 9.927. PER 


10 YEARS 
YEAR- 


YEAR 


v 


BALANCE 

INTEREST 

ACCOM.INT 

4365.87 

2365.86 

2365.87 

4470.38 

104.51 

2470.38 

4577.39 

107.01 

2577.39 

4686.97 

109.58 

2686.97 

4799.17 

112. 2 

2799.17 

4914.05 

114.88 

2914.05 

5031.68 

117.63 

3031.68 

5152.13 

120.45 

3152. 13 


10 
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CHANGE DATA AND RECOMPUTE? 

<1=YES, 0=NG>? 1 

PRINCIPAL? 1000 

NOMINAL INTEREST RATE? 8 

# OF DEPOSITS/WITHDRAWALS PER YEAR? 12 

AMOUNT OF DEPOSIT/WITHDRAWAL? 50 

START WITH WHAT YEAR? 1 

END PRINTING WITH WHAT YEAR? 1 

EARNED INTEREST TABLE 
PRINCIPAL *1000 AT 87. NOMINAL FOR 1 YEAR 
REGULAR DEPOSITS/WITHDRAWALS *50 12 TIMES PER YEAR 

EFFECTIVE INTEREST RATE 8.33% PER YEAR 


YEAR BALANCE 

INTEREST 

* y ■■ * * * w p » 

ACCUM.INT 

1 1056.7 

6.7 

6.7 

1113.78 

7.08 

13.78 

1171.24 

7.46 

21.24 

1229.08 

7. «4 

29. 08 

1287.32 

3.23 

37.32 

1345.94 

8.62 

45. 94 

1404.95 

9.01 

54.95 

1464.36 

9.41 

64.36 

1524.17 

9.8 

74. 17 

1584.37 

10.2 

84.37 

1644.98 

10.61 

94.98 

1706 

1 1.01 

106 

CHANGE DATA AND RECOMPUTE? 
(1=YES, 0=N0)? 0 




5 GRAPHICS O 

6 DIM W*(l> 

10 PRINT "EARNED INTEREST TABLE" 

20 PRINT 

29 REM - STATEMENTS 30 TO 230 REQUEST USER INPUT 

30 PRINT "PRINCIPAL"; 

40 INPUT P 

50 PRINT "NOMINAL INTEREST RATE"; 

60 INPUT I 

69 REM - CONVERT PERCENT TO DECIMAL 

70 1=1/100 

80 PRINT "# OF DEPOSITS/WITHDRAWALS PER YEAR"; 

90 INPUT N1 

99 REM - DON'T ASK FOR AMOUNT IF FREQUENCY IS ZERO 

100 IF N1=0 THEN 160 

108 REM - DEPOSITS ARE ENTERED AS A POSITIVE NUMBER 

109 REM - WITHDRAWALS ARE ENTEREEi AS A NEGATIVE NUMBER 

110 PRINT "AMOUNT OF DEPOSIT/WITHDRAWAL"; 

120 INPUT R 

129 REM - INTEREST IS COMPOUNDED DAILY 

130 N=360 

139 REM - PRINT AT EACH DEPOSIT/WITHDRAWAL 

140 L2=N1 

150 GOTO 200 



EARNED INTEREST TABLE 
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160 PRINT "# OF COMPOUNDING PERIODS PER YEAR"; 

170 INPUT N 
ISO N1=0 

189 REM - PRINT FOUR TIMES EACH YEAR 

190 L2=4 

200 PRINT "START WITH WHAT YEAR"; 

210 INPUT X 

220 PRINT "END PRINTING WITH WHAT YEAR"; 

230 INPUT Y 

239 REM - START PRINTING AT THE BEGINNING OF A YEAR 

240 X = INT(X) 

249 REM - INITIATE RUNNING TOTALS 

250 B0=P 
260 11=0 
270 12=0 
280 13=0 

290 K=66:REM FORCE PAGE TO START 
300 PI=4 

310 FOR J0=1 TO INT < Y > 

313 REM - START PRINTING? 

314 REM - IF FIRST YEAR, SKIP CHECK FOR FULL SCREEN 

315 IF JO=X THEN 370 
320 IF JOCX THEN 480 


330 IF K<22 THEN 470 

338 REM - FULL SCREEN (22 LINES)? 

339 REM - IF YES, CLEAR SCREEN, PRINT HEADINGS 

342 REM -- WAIT FOR OPERATOR CUE TO GO TO NEXT SCREEN 

344 PRINT "PRESS •'RETURN'' TO CONTINUE"; 

345 INPUT W$ 

370 K=10 

375 GRAPHICS 0 

376 POSITION 0,23 

380 PRINT " EARNED INTEREST TABLE" 

385 PRINT 


390 PRINT "PRINCIPAL *";P;" AT ";1*100*"% NOMINAL" 

395 PRINT "FOR ";Y;" YEARS" 

396 PRINT 

399 REM - SKIP DEPOSIT/WITHDRAWAL HEADING IF THERE ARE NONE 

400 IF N1=0 THEN 430 


410 PRINT 

415 PRINT 

416 PRINT 

419 REM - 

420 K=K+1 
430 PRINT 

435 PRINT 

436 PRINT 


"REGULAR DEPOSITS/WITHDRAWALS 1>";R 
" ";Nl;" TIMES PER YEAR" 

K COUNTS THE NUMBER OF PRINTED LINES PER PAGE 

"EFFECTIVE INTEREST RATE"; 

INT( <100*( < 1 + I/N)'"N~1 > >*100+0.5)/100; 

"7. PER YEAR" 


440 PRINT 

450 PRINT "YEAR BALANCE INTEREST ACCUM.INT." 

459 REM - CALCULATE INTEREST 

460 PRINT 

469 REM - PRINT YEAR NUMBER 

470 PRINT JO; 


480 Ll=l 
490 N2=l 
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500 
510 

519 

520 

529 

530 

C' '”i i“i 

•J'j 

540 

549 

550 
560 

569 

570 
5 / y 
580 


5wv 


590 

599 

600 
610 
620 
630 


P2= 1 

FOR Jl=l TO N 

REM DEPOSIT/WITHDRAW ANY MORE THIS YEAR"* 

IF N2>Ni THEN 560 

REM - TIME TO MAKE DEPOSIT/WITHDRAWAL? 

IF N2/N1X.J1/N THEN 540 

REM - CALCULATE NEW BALANCE 

BO=BO+R 

REM - COUNT DEPOSITS/WITHDRAWALS MADE PER YEAR 
N2=N2+1 

Bk'—Bo# ( 1 +1 / N ) 

REM -- I1=AMQUNT INTEREST WITH EACH COMPOUND I NO PERIOD 
11-D2 -B0 

REM - 1 S'“AMOUNT INTEREST ACCUMULATED BETWEEN POSTINGS 

13=13+11 

REM - I2=7OTAL INTEREST ACCUMULATED TO DATF 
12 = 12+11 

REM - ROUND AT INTEREST POSTING TIME 

IF P2/P1X.I1/N THEN 440 

12=INT(12#100+0.5)/i00 

82=INT(B2#100+0„ 5 ) /100 

P2=P2+1 


639 REM - YEAR TO START PRINTING? 

440 IF JOCX THEN 710 

649 REM - TIME TO PRINT A LINE? 

650 IF J1/NCL1/L2 THEN 710 
660 L. 1 =L 1 + 1 

670 POSITION 4,23 

672 PRINT INT(B2*100+0.5)/100; 

673 POSITION 20,23 

674 PRINT INT(I3*100+0.5)/100; 

675 POSITION 30,23 

676 PRINT INT(I2#100+0.5)/100 

679 REM - INTEREST POSTED, REINITIALIZE INTEREST ACCUMULATED BFTWEEN 
POSTINGS 

680 13=0 
710 B0=B2 

719 REM - NO MORE LINES TO PRINT IN LAST YEAR? 

720 IF J0+.J1 /N-l>Y THEN 780 
730 NEXT 01 

739 REM - START PRINTING? 

740 IF JOCX THEN 770 
750 PRINT 

740 K=K+1+L2 
770 NEXT JO 
780 PRINT 

789 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

790 PRINT "CHANGE DATA AND RECOMPUTE?“ 

795 PRINT "(1=YES, 0=N0)"; 

800 INPUT Z 
810 PRINT 

820 IF Z=1 THEN 20 
830 END 
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Depreciation Rate 


This program calculates the annual depreciation rate of an investment. You must provide the original 
price of the item, its resale price, and its age in years. 

The depreciation rate is calculated by the following formula: 

depreciation _ ^ _ / resale price Y ^ a % e 
rate loriginal price/ 


Example: 

Joan bought her car for $4933.76 and sold it for $2400.00 three years later. What was its actual 
depreciation rate? 

DEPRECIATION RATE 


ORIGINAL PRICE? 4933.76 
RESALE PRICE? 2400 
YEARS? 3 

DEPRECIATION RATE =21.354": 


MORE DATA? 


( 1 



0=NO) 


O 


5 GRAPHICS O 

10 PRINT "DEPRECIATION RATE" 

20 PRINT 

30 PRINT "ORIGINAL PRICE"? 

40 INPUT P 

50 PRINT "RESALE PRICE"? 

60 INPUT T 
70 PRINT "YEARS"? 

80 INPUT Y 

89 REM - CALCULATE DEPRECIATION RATE BY FORMULA, CONVERT TO PERCENT 

90 D= 100* ( 1 - ( T/P) ( 1 / Y ) ) 

100 PRINT "DEPRECIATION RATE ="? 

105 PR I NT I NT < 1000*0+ 0. 5 ) /1000 ? ""/." 

110 PRINT 

119 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

120 PRINT "MORE DATA? <1=YES, 0=N0>"? 

130 INPUT X 


140 IF X=1 THEN 20 
150 END 
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Depreciation Amount 


This program calculates the dollar amount depreciated within a given year for a depreciating investment. 
You must provide the original price of the investment, its depreciation rate, and the year of depreciation. 
The depreciation amount is calculated by the following formula: 

D = P • / • (l - /) Y ~ 1 

where: D - depreciation amount 
P - original price 
i - depreciation rate 
Y = year of depreciation 


Examples: 

Joan bought her car for $4933.76. Her model car depreciates at an average annual rate of 21%. What 
amount has the car depreciated in each of the first three years she has owned it? 

Joan is also concerned about the depreciation of the tape deck in her car. It cost her $155.00 two years 
ago, and has a depreciation rate of 22%. How much will its value decline in the third year? 

DEPRECIATION AMOUNT 

ORIGINAL PRICE? 4933.76 
DEPRECIATION RATE? 21 

—(ENTER YEAR=0 TO END)— 

YEAR? 1 

DEPRECIATION = $1036.09 
YEAR? 2 

DEPRECIATION = $818.51 
YEAR? 3 

DEPRECIATION = $646„62 
YEAR? 0 

MORE DATA? (1=YES,0=N0)? 1 

ORIGINAL PRICE? 155 
DEPRECIATION RATE? 22 

— (ENTER YEAR=0 TO END) — 

YEAR? 3 

DEPRECIATION = $20.75 
YEAR? 0 

MORE DATA? (1=YES,0=N0)? 0 
5 GRAPHICS 0 

10 PR I NT ’ DEPRECI AT I ON AMOUNT " 

20 PRINT 

30 PRINT "ORIGINAL PRICE"5 
40 INPUT P 

50 PRINT "DEPRECIATION RATE"? 



DEPRECIATION AMOUNT 
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60 INPUT I 

69 REM - CONVERT FROM PERCENT TO DECIMAL 

70 1=1/100 

80 PRINT "—(ENTER YEAR-0 TO END)—“ 

90 PRINT "YEAR"? 

100 INPUT Y 

109 REM - THROUGH CALCULATING FOR THIS ITEM? 

110 IF Y-0 THEN 160 

119 REM - CALCULATE DEPRECIATION AMOUNT BY FORMULA 

120 D=P* I * < 1 -1 > ( Y-1 ) 

129 REM - ROUND OFF TO NEAREST CENT, PRINT 

130 PRINT "DEPRECIATION * V; 

135 PRINT INT(D*100+0.5)/100 
140 PRINT 

149 REM - RETURN FOR NEXT YEAR NUMBER 

150 GOTO 90 

159 REM - RESTART OR END PROGRAM? 

160 PRINT "MORE DATA? <1=YES, 0=N0>"; 

170 INPUT X 

180 IF X=1 THEN 20 
190 END 
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Salvage Value 


This program calculates the salvage value of an item at the end of a given year. It is necessary for you to 
provide the age of the item, its original price, and its depreciation rate. 

The salvage value is obtained by the following formula: 

S = P(\ -i) Y 

where: S = salvage value 
P - original price 
/ = depreciation rate 
Y - age in years 


Example: 

What is the salvage value of Joan’s car it if is three years old, she bought it for $4933.76, and it 
depreciates 21% annually? What would its salvage value be next year? 

Joan’s tape deck is two years old. What is the its salvage value if it cost $155.00 originally and 
depreciates at a rate of 22% ? 

SALVAGE VALUE 


ORIGINAL PRICE? 4933.76 
DEPRECIATION RATE? 21 
—(ENTER YEAR=0 TO END)— 
YEARS? 3 

VALUE = $2432.54 

YEARS? 4 
VALUE = $1921.7 

YEARS? 0 

MORE DATA? (1=YES, 0=NO>? 1 

ORIGINAL PRICE? 155 
DEPRECIATION RATE? 22 
—(ENTER YEAR=0 TO END)— 
YEARS? 2 
VALUE = $94.3 


YEARS? O 

MORE DATA? (1-YES, 0=N0)? 0 


5 GRAPHICS 0 

10 PRINT "SALVAGE VALUE" 

20 PRINT 

30 PRINT "ORIGINAL PRICE"; 

40 INPUT P 

50 PRINT "DEPRECIATION RATE"; 

60 INPUT I 

70 PRINT " — (ENTER YEAR=0 TO END) — " 
80 PRINT "YEARS"; 



SALVAGE VALUE 
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90 INPUT Y 


99 REM - CALCULATE ANOTHER SALVAGE VALUE? 

100 IF Y=0 THEN 140 


108 REM - CALCULATE SALVAGE VALUE BY FORMULA, ROUND OFF, 

109 REM - DEPRECIATION RATE CONVERTED TO DECIMAL FOR USE 

110 PRINT "VALUE = 

115 PRINT I NT ( 100#P* ( 1 -1 /100) '"'Y+0. 5 ) / 100 
120 PRINT 

129 REM - RETURN FOR NEXT YEAR NUMBER- 
ISO GOTO 80 


139 REM - RESTART OR END PROGRAM? USER- 

140 PRINT "MORE DATA? (1=YES, 0=N0)"; 


INPUT REQUIRED 


PRINT 

IN CALCULATIONS 


150 INPUT X 

160 IF X=1 THEN 20 

170 END 
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Discount Commercial Paper 


This program calculates the amount of discount and net cost of a discounted commercial paper. You 
must provide the future value of the paper, the discount rate and the number of days to maturity. 
The formulas used to calculate the discount and cost are as follows: 


discount = T 


D N 
100 # 360 


cost - T - discount 


where: T = total future value 
D - discount rate 
N - number of days to maturity 


Example: 

Canning Corporation purchases a $625,000.00 commercial paper due in 60 days at 5.4%. What is the 
discount and cost? 

DISCOUNT COMMERCIAL PAPER 

FUTURE VALUE? 625000 
DISCOUNT RATE? 5.4 
DAYS TO MATURITY? 60 
DISCOUNT = $5625 

COST = $619375 

MORE DATA? <1=YES, 0=NO>? O 


5 GRAPHICS O 

10 PRINT "DISCOUNT COMMERCIAL PAPER" 

20 PRINT 

29 REM - STATEMENTS 30 TO 90 REQUEST USER INPUT 

30 PRINT "FUTURE VALUE"; 

40 INPUT T 

50 PRINT "DISCOUNT RATE"; 

60 INPUT D 

69 REM - CONVERT PERCENT TO DECIMAL 

70 D=D/100 

80 PRINT "DAYS TO MATURITY"; 

90 INPUT N 

99 REM - CALCULATE DISCOUNT, PRINT 

100 Dl=T*D*N/360 

110 PRINT "DISCOUNT = $";D1 

119 REM - CALCULATE COST, PRINT 

120 PRINT " COST = $";T-D1 

129 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 

130 PRINT 

139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

140 PRINT "MORE DATA? (1=YES, 0=N0>"; 

150 INPUT X 

160 IF X=1 THEN 20 
170 END 
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Principal on a Loan 


This program calculates an initial amount borrowed. This amount is dependent upon the interest rate, 
the amount of regular payments, the number of payments per year, and the term of the loan. 

The calculation is based on the formula: 

P-.xjJL. {\ _I_ 

/ l (1 + i/ 

where: P - principal 

R ~ regular payment 
/ = annual interest rate 
N - number of payments per year 
Y - number of years 


Example: 

Susan has agreed to pay $250.00 bimonthly for 3 years to repay a loan with 20% interest. What is the 
amount of the loan? 

Tom can afford to make payments of $180.00 per month to repay a loan. If he is willing to make 
payments for four and a half years and the loan company charges 16% interest, what is the maximum 
amount Tom can borrow? 

PRINCIPAL ON A LOAN 

REGULAR PAYMENT? 250 
TERM IN YEARS? 3 
ANNUAL INTEREST RATE? 20 

# OF PAYMENTS PER YEAR? 6 
PRINCIPAL = *3343.45 

MORE DATA? (1=YES, 0=NO>? 1 

REGULAR PAYMENT? 180 
TERM IN YEARS? 4.5 
ANNUAL INTEREST RATE? 16 

# OF PAYMENTS PER YEAR? 12 
PRINCIPAL = *6897.51 

MORE DATA? (1=YES, 0=NO)? O 


5 GRAPHICS O 

10 PRINT "PRINCIPAL ON A LOAN" 

20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER 

30 PRINT "REGULAR PAYMENT"; 

40 INPUT R 

50 PRINT "TERM IN YEARS"; 

60 INPUT Y 

70 PRINT "ANNUAL INTEREST RATE"; 

80 INPUT I 


INPUT 
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90 PRINT “# OF PAYMENTS PER YEAR"; 

100 INPUT N 

108 REM - CALCULATE AMOUNT OF PRINCIPAL BY FORMULA; 

109 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAt 
1 10 P=R*N* ( 1 -1 / ( < I / 1 00) /N+1 ) (N*Y) ) / (I/j 00) 

119 REM - ROUND OFF TO NEAREST CENT, PRINT 

120 PRINT "PRINCIPAL = $"; 

125 PR I NT I NT < P-* 100+0 „ 5) / 1OO 
130 PRINT 

139 REM - 

140 PRINT 
150 INPUT 


FOR CALCULATIONS 


RESTART OR END PROGRAM? 
"MORE DATA? <1=YES, 0=NQ>"; 
X 


160 IF X=1 THEN 20 
170 END 


OPTION 

In some cases it may be more convenient to enter the term of the loan in years and months rather than 
years. The necessary program changes are listed following the example below. 


Example: 

What would be the amount of the mortgage if you were paying $75.00 a month for 11 months with 3% 
interest? 

PRINCIPAL ON A LOAN 

REGULAR PAYMENT? 75 
TERM IN YEARS, MONTHS? 0,11 
ANNUAL INTEREST RATE? 3 
# OF PAYMENTS PER YEAR? 12 
PRINCIPAL = $812.76 

MORE DATA? <1=YES, 0=N0>? 0 

1 REM - OPTION 50-65 
5 GRAPHICS 0 

10 PRINT "PRINCIPAL ON A LOAN" 

40 INPUT R 

50 PRINT "TERM IN YEARS, MONTHS"; 

60 INPUT YO,M 

64 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

65 Y=<12*Y0+M>/12 

70 PRINT "ANNUAL. INTEREST RATE"; 

» 


170 END 
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Regular Payment on a Loan 


This program calculates the amount required as regular payments in order to repay a loan over a 
specified time period. The specifications you must provide are the amount of the principal, the interest 
rate charged, the number of payments to be made per year, and the number of years to pay. This 
program assumes all installment payments will be equal. 

The calculation is based on the formula: 


i_ • P[N_ 

r - ,.(±* l) -».r 


where: R - 
i - 
P - 
N = 
Y = 


regular payment 
annual interest rate 
principal 

number of payments per year 
number of years 


Examples: 

What must you pay on a loan of $4000.00 at 8% if payments are to be made quarterly for five years? 

If Michael borrows $6500.00 at 12.5% from Best Rate Savings & Loan to be paid back over a period of 
five and a half years, what would his monthly payments be? 


REGULAR PAYMENT ON A LOAN 


TERM IN YEARS? 5 
PRINCIPAL? 4000 
ANNUAL INTEREST RATE? 8 
# OF PAYMENTS PER YEAR? 4 
REGULAR PAYMENT = *244.63 


MORE DATA? <1=YES, 0=NO> 


1 


TERM IN YEARS? 5.5 
PRINCIPAL? 6500 
ANNUAL INTEREST RATE? 12.5 
# OF PAYMENTS PER YEAR? 12 
REGULAR PAYMENT = *136.68 

MORE DATA? <1=YES, 0=NO>? O 


5 GRAPHICS O 

10 PRINT "REGULAR PAYMENT 
20 PRINT- 


29 REM - 

30 PRINT 


STATEMENTS 30 TO 
"TERM IN YEARS"! 


40 INPUT Y 

50 PRINT "PRINCIPAL"! 
60 INPUT P 


ON A LOAN" 
100 REQUEST- 


USER 


INPUT 
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SOME COMMON BASIC PROGRAMS - ATARI 


70 PRINT “ANNUAL INTEREST RATE"; 

80 INPUT I 

90 PRINT "# OF PAYMENTS PER YEAR"; 
100 INPUT N 


108 
109 
1 10 

119 

120 
125 

129 

130 
139 


REM - CALCULATE AMOUNT OF REGULAR PAYMENT BY FORMULA* 

REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCHl ATIONS 
R~< < I/100)*P/N>/( l--l/< ( I/100I/N+1 ) (N#Y) > 

REM - ROUND OFF TO NEAREST CENT, PRINT 
"REGULAR PAYMENT = *"; 

INT(R*100+0.5)/100 

PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 


PRINT 
PR I NT 
REM - 


PR I NT 

REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
"MORE DATA? <1=YES, 0=N0>"; 


140 PRINT 
150 INPUT X 


160 IF X=1 THEN 20 
170 END 



OPTION 

You may find it more convenient to enter the term of payment in years and months rather than years. 
The necessary program changes are listed following the example below. 


Example: 

Mr. Terry needs $10,000.00 to put down on a new home. Best Rate Savings & Loan offers this amount at 

14.0% interest to be repaid over a period of 11 years and 5 months. What would be the amount of regular 
monthly payments? 

REGULAR PAYMENT ON A LOAN 

TERM IN YEARS, MONTHS? 11,5 
PRINCIPAL? 10000 
ANNUAL INTEREST RATE? 14 
# OF PAYMENTS PER YEAR? 12 
REGULAR PAYMENT = *146.59 


MORE DATA? 


( 1 =YE 


I * 

7 


0=N0)? 0 


1 REM - OPTION 30-45 
5 GRAPHICS 0 

10 PRINT "REGULAR PAYMENT ON A LOAN" 


* 


29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "TERM IN YEARS, MONTHS"; 

40 INPUT YO,M 

44 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

45 Y=<I2*Y0+M)/12 

50 PRINT "PRINCIPAL"; 


170 END 
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Last Payment on a Loan 


This program calculates the amount of the final payment on a loan. This final payment will complete 
amortization of a loan at the conclusion of its term. You must provide the amount of the loan, the 
amount of the regular payment, the interest rate charged, the number of payments per year, and the 
term of payment. 

The amount of the last payment is normally different from the amount of the regular payment. The 
final payment will be a “balloon” payment if the final payment is larger than the regular payment. A 
balloon payment is necessary if applying the amount of the regular payment as the last payment leaves a 
remaining balance due. In order to entirely pay off the loan at the end of its term, this remaining balance 
is added to the amount of the regular payment to determine the amount of the last payment. 

On the other hand, the amount of the final payment is sometimes less than the regular payment. If the 
regular payment as the last payment would result in a negative loan balance, then the last payment 
should be smaller. In this case the regular payment is adjusted by the amount of this hypothetical 
negative balance to determine the amount of the last payment. 

amount of _ regular hypothetical balance due on a 
last payment payment loan after N'Y regular payments 

where: N - number of payments per year 
Y = number of years 


Examples: 

Lynn borrowed $6000.00 at 5% from her father for college expenses. If she pays $1000.00 annually for 
seven years, what will her last payment be? 

Lynn borrows $1150.00 at 8% interest to be repaid at a rate of $75.00 per month. A year and two 
months later Lynn decides to go to Europe. How much must she pay next month to completely pay off 
her loan? 


LAST PAYMENT ON A LOAN 

REGULAR PAYMENT? ICOO 
PRINCIPAL? 6000 
TERM IN YEARS? 7 
ANNUAL INTEREST RATE? 5 

# OF PAYMENTS PER YEAR? 1 
LAST PAYMENT = $1300.59 

MORE DATA? (1=YES, 0=N0>? 1 

REGULAR PAYMENT? 75 
PRINCIPAL? 1150 
TERM IN YEARS? 1.17 
ANNUAL INTEREST RATE? 8 

# OF PAYMENTS PER YEAR? 12 
LAST PAYMENT = $240.38 


MORE DATA? (1=YES, 


0=N0>? 0 
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SOME COMMON BASIC PROGRAMS - ATARI 


5 GRAPHICS 0 

10 PRINT "LAST PAYMENT ON A LOAN" 

20 PRINT 

29 REM - STATEMENTS 30 TO 130 REQUEST USER INPUT 

30 PRINT "REGULAR PAYMENT"; 

40 INPUT R 

50 PRINT "PRINCIPAL"; 

60 INPUT P 

70 PRINT “TERM IN YEARS"; 

80 INPUT Y 

90 PRINT "ANNUAL INTEREST RATE"; 

100 INPUT I 

109 REM - CONVERT INTEREST FROM PERCENT TO DECIMAL 

110 1 = 1/100 

120 PRINT "# OF PAYMENTS PER YEAR"; 

130 INPUT N 
140 BO=P 

149 REM - COMPUTE ALL PAYMENTS, BALANCES THROUGH LAST PAYMENT 

150 FOR Jl=l TO N*Y 

159 REM - ROUND OFF INTEREST PAID TO NEAREST CENT 
.160 I 1 = I NT ( (BO# I /N > # 100+0 - 5 ) /100 

169 REM - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT 

170 A=R--11 

179 REM - BALANCE REMAINING DECREASES WITH EACH PAYMENT 

180 BO=BO~A 
190 NEXT .11 

199 REM - CALCULATE LAST PAYMENT, ROUND OFF, PRINT 

200 PRINT "LAST PAYMENT = 

205 PRINT INT((R+BO)*100+0.5)/100 
210 PRINT 

219 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

220 PRINT "MORE DATA? <1=YES, 0=N0>"; 

230 INPUT X 

240 IF X=1 THEN 20 
250 END 


USING R 



OPTION 

You may find it more convenient to enter the term of payment in years and months rather than years. 
The necessary program changes are listed following the example below. 


Example: 

If you pay $40.00 a month for two years and three months on a loan of $1200.00 at 7.5%, what amount 
will the last payment total? 


LAST PAYMENT ON A LOAN 

REGULAR PAYMENT? 40 
PRINCIPAL? 1200 
TERM IN YEARS, 


MONTHS? 2,3 


LAST PAYMENT ON A LOAN 


ANNUAL INTEREST RATE? 7.5 
# OF PAYMENTS PER YEAR? 12 
LAST PAYMENT = $287.36 

MORE DATA? <1=YES, 0=N0)? 0 


1 REM - OPTION 70-85 
5 GRAPHICS 0 

10 PRINT "LAST PAYMENT ON A LOAN 


60 INPUT P 

PRINT “ 


} j 

I 



HMWiffliHii 


in years. 


H 


T"'. ; -SlwL;: ' 
. ' • ■ 

» < ... - 


YEARS 



90 PRINT "ANNUAL INTEREST RATE" 


250 


END 


a* 
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Remaining Balance on a Loan 


This program calculates the balance remaining on a loan after a specified number of payments. It is 
necessary for you to provide the amount of the regular payment, the number of payments per year, the 

amount of the principal, the annual interest rate, and the payment number after which to calculate the 
remaining balance. 

The remaining balance is calculated by the following method: 

remaining _ nr j nc ; n oi _ amount amortized after 
balance N • (Y ~ 1) + N1 payments 

where: N - number of payments per year 

Y - year to calculate remaining balance 
N1 - payment number in year Y to calculate remaining balance 


Example: 

Kelly has taken out a loan of $8000.00 at 17.2% interest. His regular payments are $200.00 per month. If 
he has paid through the tenth payment in the fourth year, how much more does Kelly owe on his loan? 


REMAINING BALANCE ON A LOAN 

REGULAR PAYMENT? 200 
PRINCIPAL? 8000 
# OF PAYMENTS PER YEAR? 12 
ANNUAL INTEREST RATE? 17.2 
LAST PAYMENT MADE: 

(PAYMENT NUMBER,YEAR)? 10,4 
REMAINING BALANCE = $2496.17 

MORE DATA? <1=YES, 0=N0)? O 


5 GRAPHIC 
10 PRINT 
20 PRINT 

29 REM -- 

30 PRINT 
40 INPUT 


S 0 

"REMAINING BALANCE ON A LOAN" 


STATEMENTS 30 TO 130 REQUEST USER INPUT 
"REGULAR PAYMENT"; 

R 


50 PRINT "PRINCIPAL"; 

60 INPUT P 

70 PRINT "# OF PAYMENTS PER YEAR"; 

80 INPUT N 

90 PRINT "ANNUAL INTEREST RATE"; 

100 INPUT I 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 1 = 1/100 

119 REM “ ENTER THE PAYMENT NUMBER WITHIN THE YEAR, I.E. NION 

120 PRINT "LAST PAYMENT MADE:" 

125 PRINT "(PAYMENT NUMBER,YEAR)"; 

130 INPUT Ni , Y 



REMAINING BALANCE ON A LOAN 
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.1 39 
140 
149 REM 


1 

159 

160 

169 

170 

•i 

180 
190 

199 

200 
205 
21.0 
2 i 9 
220 
230 
240 
250 


REM - initialize: remaining balance 

BO=P 

- LOOP TO ACCUMULATE AMOUNT PAID SO FAR 
FOR J 1*1 ITO: N*< Y-D+Nl 

REM - CALCULATE INTEREST PAID WITH EACH PAYMENT 
11-1NT < < 80*I/N)*100+0. 5 > / 100 

REM -• CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT 
A=R-I1 

REM - CALCULATE REMAINING BALANCE ON PRINCIPAL 
B0=B0—A 
NEXT J1 

REM - ROUND OFF, PRINT 
PRINT "REMAINING BALANCE = *"; 

PRINT INT(BO*100+0.5>/100 
PR I NT 

REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
PRINT "MORE DATA? <1=YES, 0=N0>"? 

INPUT X 

IF X=1 THEN 20 
END 


OPTION 

You may wish to specify the number of the last payment made as the total payment number rather than 
the payment number within a certain year. For instance, when four payments are made per year, 
payment 3 of the third year would be entered as payment 11. The necessary program changes are listed 
following the example below. 


Example: 

John made ten quarterly payments of $550.00 on a loan of $6000.00 with 16% interest. What is his 
remaining balance? 


REMAINING BALANCE ON A LOAN 

REGULAR PAYMENT? 550 
PRINCIPAL? 6000 
# OF PAYMENTS PER YEAR? 4 
ANNUAL INTEREST RATE? 16 
NUMBER OF PAYMENTS MADE? 10 
REMAINING BALANCE = *2278.09 

MORE DATA? <1=YES, 0=N0>? 0 

1 REM - OPTION 119-130, 150 

5 GRAPHICS 0 

10 PRINT "REMAINING BALANCE ON A LOAN" 

9 

110 1 = 1/100 
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SOME COMMON BASIC PROGRAMS - ATARI 


139 REM - INITIALIZE REMAINING BAL ANCE *” 

140 BO=P 

149 REM - LOOP TO ACCUMULATE AMOUNT PAID GO FAR 
159 REM - CALCULATE INTEREST PAID WITH EACH PAYMENT 


250 END 
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Term of a Loan 


This program calculates the period of time needed to repay a loan. You must specify the amount of the 
loan, the amount of the payments, the number of payments to be made per year, and the annual interest 
rate on the loan. All payments are assumed to be equal. 

The term of payment is derived from the following formula: 



where: 


Y = term of payment in years 
P - principal 
/ = annual interest rate 
N - number of payments per year 
R ~ amount of payments 


Examples: 

What would be the duration of payment on a mortgage of $20,000.00 at 18% when payments of $1000.00 
are to be made quarterly? 

Sally takes out a loan for $12,669.00 at 16.8%. Her payments are $512.34 every two months. What is 
the term of her loan? 

TERM OF A LOAN 

REGULAR PAYMENT? lOOO 
PRINCIPAL? 20000 
ANNUAL INTEREST RATE? 18 

# OF PAYMENTS PER YEAR? 4 
TERM = 13.1 YEARS 

MORE DATA? <1=YES, 0=NO>? 1 

REGULAR PAYMENT? 512.34 

PRINCIPAL? 12669 

ANNUAL INTEREST RATE? 16.8 

# OF PAYMENTS PER YEAR? 6 
TERM =7.1 YEARS 


MORE DATA? <1=YES, 0=NO)? O 


5 GRAPHICS O 

10 PRINT "TERM OF A LOAN" 

20 PRINT 

29 REM - STATEMENTS 30 TO 100 

30 PRINT “REGULAR PAYMENT"; 

40 INPUT R 

50 PRINT "PRINCIPAL"; 

60 INPUT P 


REQUEST 


USER 


INPUT 
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SOME COMMON BASIC PROGRAMS - ATARI 


70 PRINT "ANNUAL INTEREST RATE"; 

SO INPUT I 

90 PRINT "# OF PAYMENTS PER YEAR"; 

100 INPUT N 

108 REM - CALCULATE TERM IN YEARS BY FORMULA; 

109 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL. 

110 Y“- (L UU < 1 - < P* ( I / 100 ) ) / ( N*R) ) / (LOG ( 1 +1 / 1OO/N ) -s-N ) ) 
119 REM - ROUND OFF TO NEAREST TENTH, PRINT 

"TERM = "SINT(Y*10+0.5)/30; 

" YEARS" 


FOR CALCULATION 


120 PRINT 
125 PRINT 
130 PRINT 

139 REM - 

140 PRINT 
150 INPUT 
160 IF X=1 
170 END 


RESTART OR END PROGRAM? 
"MORE DATA? ( 1-YES, 0=NO > ; 
X 

THEN 20 



OPTION 

It is possible to calculate the term of payment in years and months rather than just years To do this 
make the program changes listed following the example below. 


Example: 

P lck t0 ° k ou , t a loan for $8000.00 at 7.5%. Regular payments of $150.00 are to be made monthly How 
long will it take to pay off the loan ? ' 


TERM OF A LOAN 

REGULAR PAYMENT? 150 
PRINCIPAL? 8000 
ANNUAL INTEREST RATE? 7.5 
# OF PAYMENTS PER YEAR? 12 
TERM =5 YEARS,5 MONTHS 

MORE DATA? <1=YES, 0=N0>? O 

1 REM - OPTION 114-120 
5 GRAPHICS 0 

10 PRINT "TERM OF A LOAN" 

* 

110 Y=-(LOG (1-< P*(I/100))/(N*R))/< LOG (1 + 1/1 00/N)*N >) 
114 REM - CALCULATE YEARS AND MONTHS FROM YFARS 
ITS M=*INT< Y*12+0. 5) 

11* Y0»INT<M/12> 

117 M=M-YO*12 

TT9 REM - PRINT RESULTS 

120 PRINT "TERM *"!YO?" YEARS,"?M?" MONTHS" 

ISO PRINT 

170 END 
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Annual Interest Rate on a Loan 


This program calculates the rate at which interest is charged on a loan. To determine this rate you must 
enter the amount of the loan, the amount of the regular payment, the number of payments per year, and 
the term of the loan. 

The annual interest rate is computed by the following method of approximation: 

1. Guess an interest rate 
Initialize last guess to 0 

2. Compute regular payment using guessed rate: 


R 


1 


/ • P/N 

1 - (1 + i/N)~ N ' Y 


Round off R, 

3. If computed payment = actual payment, then current guess = approximate interest rate 

4. Otherwise, save current guess and calculate a new guess: 


>2 = i 

i = / ± I (i - h)l 2 


+ if /?, < R 
-if R t > R 


5. Go to 2 


where: / = interest rate 

z' 2 = previous interest rate 
R = input regular payment 
R. = computed regular payment 
P = principal 

N = number of payments per year 
Y — number of years 


Examples: 

Cindy borrowed $3000.00 from her friend George with an agreement to pay back $400.00 quarterly for 
two years. At what interest rate is she being charged? 

To pay back a loan of $10,000.00 John contracted to make monthly payments of $120.00 for nine and 
a half years. At what rate is interest being charged? 

ANNUAL. INTEREST RATE ON A LOAN 

REGULAR PAYMENT? 400 
TERM IN YEARS? 2 
PRINCIPAL? 3000 
# OF PAYMENTS PER YEAR? 4 
ANNUAL INTEREST RATE =5.8277. 

MORE DATA? <1=YES, 0=NO>? 1 


REGULAR PAYMENT? 120 
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SOME COMMON BASIC PROGRAMS - ATARI 


TERM IN YEARS? 9.5 
PRINCIPAL? 10000 
# OF PAYMENTS PER YEAR? 12 
ANNUAL INTEREST RATE =6.933’/. 

MORE DATA? (1=YES, 0=N0>? 0 


5 APHIDS™ O u &/y 1 

10 PRINT "ANNUAL. INTEREST RATE ON A LOAN" 

20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "REGULAR PAYMENT"; 

40 INPUT R 

50 PRINT "TERM IN YEARS"; 

60 INPUT Y 

70 PRINT "PRINCIPAL"; 

80 INPUT P 

90 PRINT "# OF PAYMENTS PER YEAR"; 

100 INPUT N 

110 I-jlO~ GUESS AN INTEREST RATE < 107.) TO INITIATE TESTING 

119 REM - I2=LAST GUESS OR ESTIMATE (START WITH O) 

120 12=0 

129 REM - COMPUTE REGULAR PAYMENT USING GUESSED INTEREST RATE 

130 Rl = < I*p/N>/(1 —1/< ( I/N+l )-'(N*Y> ) ) 

139 REM - ROUND OFF TO NEAREST CENT 

140 R1=INT(R1*100+0.5)/100 

149 REM - I3=NUMBER USED TO CLOSE IN ON INTEREST RATE 

150 I3=ABS(I-I21/2 

159 REM - SAVE THIS GUESS 

160 12=1 

168 REM - COMPARE COMPUTED PAYMENT <R1> TO INPUT PAYMENT <R>; 

169 REM r - IF THEY' RE EQUAL, LAST RATE GUESSED*APPROX IMATE INTEREST RATE 

180 IF R1>R THEN 210 

189 REM - R1CR, RATE MUST BE HIGHER THAN LAST GUESS 

190 1=1+13 

199 REM - RETEST WITH NEW GUESS 

200 GOTO 130 

209 REM - R1 >R, RATE MUST BE LOWER THAN LAST GUESS: 

210 REM 
212 1=1-13 

219 REM - RETEST WITH NEW GUESS 

220 GOTO 130 

229 REM - COMPUTE INTEREST TO PROPER PROPORTIONS, ROUND OFF,PRINT 

230 I = ((INT((I* 1000)*100+0.5))/100)/1000 
240 PRINT "ANNUAL INTEREST RATE ="; 

245 PRINT 1*100; "7." 

250 PRINT 

25'? REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
260 PRINT "MORE DATA? (1=YES, 0=NO>»; 

270 INPUT X 

280 IF X=1 THEN 20 

290 END 



ANNUAL INTEREST RATE ON A LOAN 
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OPTION 

The above listing allows the term of the loan to be entered in years only. You may wish to enter the term 
in years and months rather than years. The necessary program changes are listed following the example 
below. 


Example: 

If Connie pays $100.00 per month for 11 years and 7 months on a $10,000.00 loan, what is the annual 
interest rate on the loan? 

ANNUAL INTEREST RATE ON A LOAN 

REGULAR PAYMENT? 100 
TERM IN YEARS, MONTHS? 11,7 
PRINCIPAL? 1OOOO 
# OF PAYMENTS PER YEAR? 12 
ANNUAL INTEREST RATE =6.0027. 

MORE DATA? (1=YES, 0=N0)? 0 

1 REM - OPTION 50-65 
5 GRAPHICS 0 

10 PRINT "ANNUAL INTEREST RATE ON A LOAN" 

40 INPUT R 

50 PRINT "TERM IN YEARS, MONTHS"? 

60 INPUT YQ,M 

64 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

65 Y=<12*Y0+M>/12 

70 PRINT "PRINCIPAL"; 
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Mortgage Amortization Table 


This program calculates and prims a loan repayment schedule. This schedule provides the following 

vy 14 t Jy 14 

1. Payment number 

2. Amount of each payment paid as interest 

3. Amount of the loan amortized with each payment 

4. Balance remaining on the principal at the time of each payment 

5. Accumulated interest paid at the time of each payment 

6. Amount of the last payment 

In addition, the yearly totals of interest paid and amount amortized are tabulated and printed. 

To use this program you must supply the amount of the regular payment, the term of payment the 

nu i?° er °f payments per year, the amount of the principal and the annual interest rate. 

The schedule is calculated in the following manner: 

1. Payment number = payment number within each year 

2. Amount of each payment paid as interest = remaining balance • i/N 

where: / = annual interest rate 

N = number of payments per year 

3. Amount amortized with each payment = R —I 
where: R = amount of regular payment 

I = amount of each payment paid as interest 

4. Balance remaining = P— 2 A 
where: P — principal 

2 A = sum of amounts amortized with each 
payment to date 

5. Accumulated interest = I 

where: 2/ = sum of amounts of each payment 
paid as interest to date 

6. Amount of last payment = R + (P-R-N‘Y) 

where: R = regular payment 
P = principal 

N = number of payments per year 
Y — number of years 


Example: 

David needs $2100.00 to pay off some debts. His sister offers him the money at 6% interest With 
payments of $75.00 monthly for two and a half years, what is David’s repayment schedule? 

MORTGAGE AMORTIZATION TABLE 

REGULAR PAYMENT? 75 
TERM IN YEARS? 2.5 
PRINCIPAL? 2100 
ANNUAL INTEREST RATE? 6 



MORTGAGE AMORTIZATION TABLE 
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PAYMENTS PER YEAR? 12 
START WITH WHAT YEAR? 1 


PRESS -RETURN-' TO CONTINUE? 
MORTGAGE AMORTIZATION TABLE 


PRINCIPAL $2100 AT 67. FOR 2.5 YEARS 
REGULAR PAYMENT = $75 


NO. 

INTR. 

AMORT . 

BALANCE 

ACCUM.INT. 

1 

10. 5 

64.5 

2035 - 5 

10.5 

2 

10. 18 

64.82 

1970.68 

20 • 68 

3 

9.85 

65.15 

i »—» a cr cr 

1 7UJ . -.J•”* 

30. 53 

4 

<5 «=;-5 

»* ■ ■_* 

65.47 

1840.06 

40. 06 

cr 

C; ■:> 

65.8 

1774.26 

49.26 

6 

O O ~7 
u ■ / 

66. 13 

1708.13 

58. 13 

7 

8.54 

66 . 46 

1641.67 

66 . 67 


8 . 21 

66. 79 

1574.88 

*7 A OQ 

9 

7.87 

67. 13 

1507.75 

82 . 75 

10 

7. 54 

67. 46 

1440.29 

90 . 29 

11 

7 2 

67 . 8 

1372.49 

97.49 

12 

6 . 86 

6 8.14 

1304 . 35 

104 . 35 

YR. 

is INTEREST = 

$104 . 35 




AMORTIZED = 

$795.65 




PRESS 

-RETURN TO 

CONTINUE? 



MORTGAGE AMORTIZATION TABLE 



PRINCIPAL $2100 AT 

67. FOR 2.5 

YEARS 


REGULAR PAYMENT = 

$75 



NO. 

INTR. 

AMORT. 

BALANCE 

ACCUM.INT 

1 

6.52 

68. 48 

1235.87 

110.87 


6. 18 

/_ o O 

O'.' « *..»x 

1167.05 

117.05 

3 

5. 84 

69. 16 

1097.89 

122.89 

4 

5. 49 

69.51 

1028.38 

i OO OO 

X X— m OL* 

5 

5. 14 

69.86 

958.52 

1 90 

X w v • wdu 

6 

4.79 

70. 21 

OOO O 1 

m 1 

138 . 31 

7 

4.44 

70.56 

817.75 

1 A3 7S 

8 

4.09 

70.91 

746.84 

146 . 84 

9 

3. 73 

71.27 

675.57 

150.57 

10 

3.38 

71.62 

603.95 

153.95 

11 

3 02 

*«J m 

71.98 

531.97 

156.97 

12 

2. 66 

72.34 

459.63 

159.63 

VP •*•>*» 

Yn « jc- • 

INTEREST = 

CTC 




AMORTIZED = 

$y44 • 7k! 



PRESS 

-RETURN- TO 

CONTINUE? 




MORTGAGE AMORTIZATION TABLE 
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PRINCIPAL $2100 AT 6% FOR 2.5 YEARS 
REGULAR PAYMENT = $75 


AMORT. 

72.7 
73.07 
73.43 

73.8 


BALANCE 
386.93 

313 . 86 
240.43 
166.63 


ACCUM.INT 
161.93 
163.86 
165.43 

166.63 


NO. 

INTR. 

1 

2. 3 

2 

1.93 

3 

1.57 

4 

1.2 

5 

0.83 

6 

0. 46 

1 

-AST PAYMENT 

YR. 

3: INTEREST 


AMORTIZED 


74.17 92 

92.46 0 

$92.92 
$8. 29 
$459.63 


46 167.46 

167. 92- 


CHANGE DATA AND RECOMPUTE? 
<1=YES, 0=N0 ) ’? 0 


5 88" A/ o ^ 6 

6 DIM W$(1) 

10 PRINT "MORTGAGE AMORTIZATION TABLE" 

20 PRINT 

29 REM - STATEMENTS 30 TO 150 REQUEST IISER 

30 PRINT "REGULAR PAYMENT"; 


INPUT 


40 INPUT R 

50 PRINT "TERM IN YEARS"I 
60 INPUT Y 

70 PRINT "PRINCIPAL"; 

80 INPUT P 

90 PRINT "ANNUAL INTEREST RATE"; 

100 INPUT I 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 1 = 1/100 

120 PRINT "PAYMENTS PER YEAR"; 

130 INPUT N 

140 PRINT "START WITH WHAT YEAR"; 

150 INPUT X 

159 REM - START PRINTING AT BEGINNING OF A YEAR- 

160 X=INT(X) 


169 REM -■ INITIALIZE VARIABLE* 

170 C1=0 
180 I2=0 
190 I3=0 
200 J0=0 
210 N1=N 


220 

230 

240 



260 



2 



2 



cr 
■_* 



K=20 
BO=P 
A 1=0 
A2=0 

REM - TERM LESS THAN ONE YEAR? 
IF INT(Y)>=1 THEN 270 

Nl=<(Y-INT(Y))#12)/12*N 
•JO=.JO+ 1 
GOTO 280 

REM - LOOP FOR EACH YEAR 
FOR .J0 = 1 TO I NT ( Y ) 
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279 

280 

•~>oo 
j.*: o y 

”•90 

295 
297 
300 
310 
330 


, i.i .* 


340 

342 

345 

“«4 8 
250 


/ 


cr cr 

360 

370 

O O 

i„» w 




r, i~. 

OC* 

390 


410 
41.9 
420 

429 

430 

439 

440 

449 

450 
460 

468 

469 

470 
475 
480 
490 
500 
510 

519 

520 

529 

530 

<=; c/ 

540 

541 

549 

550 

551 

560 

561 

cr / -~i 

JO.6 

cr / 
JOO 


- START PRINTING? 

IF J0<X THEN 410 

REM - CHECK FOR FULL SCREEN (20 LINES) 

IF K+N+3C20 THEN 400 

REM -• WAIT FOR OPERATOR CUE TO GO TO NEXT SCREEN 
PRINT 

PRINT "PRESS -RETURN' TO CONTINUE"? 

INPUT W$ 

PRINT 

REM - PRINT PAGE HEADINGS 

♦GRAPHICS 0 &<***£ . 

POS III UN 0,23 ^ - 

PRINT "MORTGAGE AMORTIZATION TABLE" 

PR I NT 

PR I NT "PRINCIPAL $"? P?" AT "?I * 100 ? 

PRINT "7- FOR " 5 Y? " YEARS" 

PRINT "REGULAR PAYMENT ~ $"?R 
PRINT 

PRINT "NO. INTR. AMORT. "? 

PRINT "BALANCE ACCOM.TNT." 

REM - COUNT LINES PRINTED ON EACH PAGE IN K 
K=7 

K=K+N+3 

FOR .Jl = l TO N1 

REM - CALCULATE INTEREST PAID THIS PAYMENT, ROUND OFF 

11 = INT((BO*I/N)*100+0.5)/100 

REM - COUNT NUMBER OF PAYMENTS MADE SO FAR 

C1=C1+1 

REM - CALCULATE AMOUNT AMORTIZED THIS PAYMENT 

I 1 

REM - SUM AMOUNT AMORTIZED TO DATE 

A1=A1+A 

BO=P~A1 

REM - LAST PAYMENT? IF YES, CALCULATE AMOUNT SO THAT THE 

REM - BALANCE DUE EQUALS $00.00 AFTER THIS PAYMENT 

IF C1 ON*Y THEN 520 

REM - CALCULATE BALANCE DUE 

R-R+BO 

A—A+BO 

A1=A1+B0 

B0=0 

REM - SUM INTEREST PAID TO DATE 
12=12+11 

REM - SUM INTEREST PAID THIS YEAR 
13=13+11 

REM - SUM AMOUNT AMORTIZED THIS YEAR 
A2=A2+A 

A2=INT(A2*100+0.5)/100 

REM - STARTED PRINTING? IF YES, PRINT COMPUTED VALUES IN TABLE 
IF JOCX THEN 570 
A=INT(A*100+0.5)/100 
PRINT Jl? 

-POS ITI ON 6 ,-23 t‘.< -- - 

PRINT II?‘ 


& ' /' / V ' I L* & 


POSITION 12,23 ,, 


; A 


H ^ /> : 2 3 
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564 

565 

566 

567 

568 

569 

570 

579 

580 
590 

599 

600 
610 


PRINT A? 


B0=INT(BO*100+0.5)/100 
P-OSIT TOM 20^23 f>A .« -r 
PRINT BO? 




' 


H v 3 3 ** 


/ * 


3 


PRINT 12 
NEXT J1 

REM — LAST PAYMENT? IF YES, ROUND OFF, PRINT 
IF C1 ON*Y THEN 600 

PRINT " LAST PAYMENT = $";INT(R*100+0.5)/100 

REM - STARTED PRINTING? IF YES,PRINT YEARLY TOTAL 
IF JO<X THEN 640 


PRINT 


» M, » 

% 


620 

625 

630 

639 

640 

649 

650 
660 

670 

671 

679 

680 
720 

729 

730 
735 
740 
750 
760 


PRINT "YR. ";JO;": INTEREST = %"; I3 
PRINT " AMORTIZED = $";A2 

PR I NT 

REM - COMPLETED TERM? 

IF JOY THEN 720 

REM - REINITIALIZE YEARLY VARIABLES 
13=0 

A2=0 
NEXT JO 
J0=JO-1 

REM - NEED TO PRINT A PARTIAL YEAR"? 

IF YOJO THEN 262 
PR I NT 

REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
PRINT "CHANGE DATA AND RECOMPUTE"? " 

PRINT "<1=YES, 0=N0)"; 

INPUT Z 

IF Z=1 THEN 20 
END 



OPTION 


You may wish to enter the term of payment in years and months rather than years. The necessary 
program changes are listed following the example below. 


Example: 


If you took out a loan for $700.00 from a friend at 9% interest and 
eight months, what would your repayment schedule be? 


were to pay $100.00 per month for 


MORTGAGE AMORTIZATION TABLE 


REGULAR PAYMENT? 100 
TERM IN YEARS, MONTHS? 
PRINCIPAL? 700 
ANNUAL INTEREST RATE? 


0 


o 


9 



MORTGAGE AMORTIZATION TABLE 
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PAYMENTS PER YEAR? 12 
START WITH WHAT YEAR? 1 

PRESS "RETURN" TO CONTINUE? 

MORTGAGE AMORTIZATION TABLE 


PRINCIPAL 

$700 AT 

9% FO 

R 0 

YEARS AND 8 

MONTHS 


REGULAR PAYMENT = 

\ Cj ij 





NO. 

INTR. 

AMORT. 

BALANCE 

ACCOM 

. it 

1 

er •"> cr 

v* n '.J 

Q 4 

75 

605.. 25 

!2‘ 

•-.‘ u 4.-:. 

5 


4.54 

• 4 I 

IX 

46 

509 u 79 

•-> ■?’ 

• / 

• 

3 

•~*i o 

o z. 

.•* L.‘ a 

IS 

4 3.3. 6.1. 

3 3 

61 

4 

3 « 1 

i* t / 

8 O n 

Q 

3 1 6. 7 1 

1 6 . 

7 3. 

5 

2. 38 

•::> 7 

62 

219 , 09 

1 Q 

J «* w 

09 

6 

1 h 84 

»“*i r’i 

y o « 

36 

3. 20 . 73 

20 « 

-V 
/ O 

•*7 

* 

/ 

0. 91 

i***i i "i 
■y 

,* «' n 

09 

2 1 II CD 4 

2 1 « 

64 


YR. is INTEREST 
AMORTI ZED 


$23.. 64 

/+• 7 ■—i / 

■p <::• / o .. o 


CHANGE DATA AND RECOMPUTE? 
(1=YES, 0=N0)? 0 


1 REM OPTION 50-65v 355 

10 PRINT "MORTGAGE AMORTIZATION TABLE" 

40 INPUT R 

“ Hi 


. 

• w • 

CD v 



% O ? 


65 mmsmemmmz]- 

70 PRINT "PRINCIPAL"“ 


MONTHS" 




pS *•»»> 

lO 


c* 

■O' 


345 

PRINT 

li 

6 4 6 

PRINT 


350 

PRINT 

M 

355; ; : 

PRINT 

It 

360 

• 

PR I NT 

II 

760 

END 



% 


II It 

•• ' •> 


* M 


II 


I"MONTHS" 


$ " ? R 
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Greatest Common Denominator 



IlgorithmTw nn'd^ng^hJ Geo 31681 C ° mm ° n denominator of two integers. It is based on the Euclidean 

1. Enters, B 

A = absolute value of A 
B — absolute value of B 

2. Calculate R=A-B • (integerof( A/B )) 

3. Is/? = 0? If yes, theGCD=5 

If no, go to step 4 

4. A =B 
B=R 

5. Go to step 2 


Example: 

Find the greatest common denominator of 50 and 18, 115 and 150. 


GREATEST COMMON DENOMINATOR 

(ENTER 0.0 TO END PROGRAM) 
ENTER TWO NUMBERS? 50,18 
G. C. D: 2 

ENTER TWO NUMBERS? 115,150 
G. C. D s 5 

ENTER TWO NUMBERS? 0,0 


5 GRAPHICS 0 

10 PRINT "GREATEST COMMON DENOMINATOR" 

20 PRINT 

30 PRINT "(ENTER 0,0 TO END PROGRAM)" 

40 PRINT "ENTER TWO NUMBERS"; 

50 INPUT A,B 

59 REM - END PROGRAM? 

60 IF AGO THEN 90 
70 IF BOO THEN 90 
80 GOTO 190 

89 REM - CALCULATE GCD ACCORDING TO EUCLIDEAN ALGORITHM, 

90 A=ABS(A) 

100 B-ABS< B) 

110 R=A-B*INT(A/B) 

120 IF R=0 THEN 160 

130 A=B 

140 B=R 

150 GOTO 110 


PRINT RESULT 



GREATEST COMMON DENOMINATOR 
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160 PRINT "G.C.D:"5 B 

169 REM - PRINT BLANK LINE TO SEPARATE SETS OF DATA 

170 PRINT 

179 REM -RESTART PROGRAM 

180 GOTO 40 
190 END 
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Prime Factors of Integers 



This program lists the prime factors of an integer. It will not test for the integer 0. 

Examples: 

What are the prime factors of —49? 

Factor 92 into primes. 

PRIME FACTORS OF INTEGERS 


(ENTER 0 TO END PROGRAM) 
NUMBER? -49 
-1 


NUMBER? 

1 




NUMBER" 


o 


5 GRAPHICS 0 

10 PRINT "PRIME FACTORS OF INTEGERS" 

20 PRINT 

30 PRINT "(ENTER 0 TO END PROGRAM)" 

40 PRINT "NUMBER"; 

50 INPUT Z 

59 REM - END PROGRAM? 

60 IF Z=0 THEN 200 

69 REM - THE £:IGN OF THE NUMBER IS ALWAYS A FACTOR 

70 PRINT SON(Z) 

79 REM - USE ABSOLUTE VALUE FOR CALCULATIONS 
SO Z=ABS<Z) 

88 REM - LOOP TO TEST ALL INTEGERS (2 THROUGH 7.) AS PRIME FACTORS 

89 REM - INTEGERS Z/2 THROUGH Z WILL HAVE NO NEW FACTORS 

90 FOR 1=2 TO Z/2 

100 S=0 

110 IF Z/IOINT(Z/l ) THEN 150 
120 Z=Z/I 
130 S=S+1 
140 GOTO 110 

149 REM - FIND A PRIME FACTOR? IF YES, PRINT 

150 IF S=0 THEN 170 

159 REM - PRINT FACTORS WITH EXPONENTS; II JO THE S POWFR 

160 PRINT I? ;S " - - - 

170 NEXT I 

180 PRINT 
190 GOTO 40 
200 END 
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Area of a Polygon 


This program calculates the area of a polygon. You must supply the x and y coordinates of all vertices. 
Coordinates must be entered in order of successive vertices. 

The formula used to calculate the area is: 

Area = [(*, + x 2 ) • (.v, - y 2 ) + (*2 + * 1 ) ’ 0f 2 - y.0 + • • • (*„ + .v,) • (y„ - y,)]/2 
where n = the number of vertices 

The number of vertices you may enter is currently limited to 24. You may increase or decrease this 
limit by altering statement 30 according to the following scheme: 

30 DIM X(;V+ 1) , Y <N+ 1) 


Example: 

Approximate the area of Lake Boyer. 



AREA OF A POLYGON 

(ENTER O TO END) 

NUMBER OF VERTICES? 14 
COORDINATES: 

VERTEX 1? 0,4 
2? 1,7 

4.8 
5, 10 

=■■■ 7,11 
9, 10 
12,9 

14.8 
13,4 

10? 15,4 
11? 15,1 


. J * 


4? 

M 

. 

6 ? 

7? 

8 ? 
V V 
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SOME COMMON BASIC PROGRAMS - ATARI 


12? 13,0 

i OO KT -I 
J. : •-.* 7 J. 

14? 4,2 

AREA = 108 
(ENTER 0 TO END) 

NUMBER OF VERTICES? 0 

5 GRAPHICS 0 

10 PRINT "AREA OF A POLYGON" 

20 PRINT 

29 REM - COORDINATE ARRAYS SHOULD BE SET TO (NUMBER OF VERTICES +1) 

30 DIM X(25),Y(25) 

40 PRINT "(ENTER 0 TO END)" 

45 PRINT "NUMBER OF VERTICES"; 

50 INPUT N 

59 REM - END PROGRAM? 

60 IF N=0 THEN 230 

69 REM - LOOP TO ENTER COORDINATES IN ORDER OF SUCCESSIVE VERTICES 

70 FOR 1=1 TO N 

SO IF I>1 THEN 110 
90 PRINT "COORDINATES:" 

95 PRINT " 

100 GOTO 120 
110 PRINT " 

120 INPUT X1.Y1 
122 X(I)=X1 
124 Y(I)=Y1 
130 NEXT I 

139 REM - FIRST VERTEX SERVES AS LAST VERTEX 

140 X(N+l)=X(1) 

150 Y(N+l)=Y(1) 

160 A=0 

169 REM - CALCULATE AREA, PRINT 

170 FOR 1=1 TO N 

ISO A=A+(X(I> +X(1 + 1))*< Y(I)-Y(1 + 1)) 

190 NEXT I 

200 PRINT "AREA = ";ABS(A>/2 
210 PRINT 

219 REM - RESTART PROGRAM 

220 GOTO 40 
230 END 


VERTEX ";l; 

It • T ■ 
7 I 7 
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Parts of a Triangle 


This program calculates three unknown parts of a triangle when three parts are given. At least one part 
given must be the length of a side. There are five possibilities for data entry: 

1. Angle, side, angle 

2. Side, angle, side 

3. Angle, angle, side 

4. Side, side, angle 

5. Side, side, side 

Data must be entered in the order it appears in a triangle, either clockwise or counterclockwise. 


Example: 

The base of a triangle measures 14 inches. The base angles measure 0.45 and 2.1 radians. What are the 
measurements of the triangle? 



14" 


PARTS OF A TRIANGLE 


PROBLEM TYPES: 


1=ASA, 2=SAS, 3=AAS 
4=SSA, 5=SSS, 6=END 


ENTER PROBLEM TYPE? 1 

ENTER ANGLE, SIDE, ANGLE? 0.45,14,2.1 


SIDE 1 = 10.919 
OPPOSITE ANGLE = 
SIDE 2 = 21.67 
OPPOSITE ANGLE = 
SIDE 3 = 14 
OPPOSITE ANGLE = 


0.45 RADIANS 


2.1 RADIANS 


0.592 RADIANS 


ENTER PROBLEM TYPE? 6 


5 GRAPHICS 0 

10 PRINT "PARTS OF A TRIANGLE" 
20 PRINT 
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SOME COMMON BASIC PROGRAMS - ATARI 


30 DIM A(3),S(3) 

35 PI=3.1415927 

33 REM -• ENTER NUMBER OF PROBLEM TYPE ACCORDING TO KNOWN PARTS 

39 REM - OF THE TRIANGLE WHERE A=ANGLE, S=l ENGTH OF AIDE 

40 PRINT "PROBLEM TYPES: " 

50 PRINT " 1 --ASA> 2=3AS, 3=AAS" 

55 PRINT " 4=SSA, 5=8SS, 6=FWD" 

57 PRINT- 

60 PRINT “ENTER PROBLEM TYPE"; 

70 INPUT X 

79 REM - DIRECT PROGRAM TO PROPER CALCULATIONS 

80 IF X=6 THEN 560 

90 IF X-~5 THEN 390 
100 IF X=4 THEN 300 

110 IF X=3 THEN 260 

120 IF X=2 THEN 190 

125 IF XOl THEN 40 

130 PRINT "ENTER ANGLE, SIDE, ANGLE"? 

140 INPUT A1,S3,A2 

141 A(1)=A1 

142 S(3)=S3 

143 A(2)=A2 

150 A(3)=PI-A(1>-A< 2) 

160 S<1>=S(3)*SIN<A<1))/SIN(A< 3)) 

170 S(2)=S(3)*SIN(A<2))/SIN(A<3)) 

180 GOTO 440 

190 PRINT "ENTER SIDE, ANGLE, SIDE"; 

200 INPUT S3,A1,S2 

201 S(3)=S3 

202 A(1)=A1 

203 S(2)=S2 

210 S < 1 ) =SQR (S (3) "'"2+S < 2) A 2-2*S (3) *S (2) * COS (A ( 1 ) ) > 

220 A < 2)=31N(A(1 ) )/S(1)*S(2) 

230 A (2 ) =ATN (A (2) /SQR < 1 - (A (2 > > "'2) ) 


230 A (2) =ATN ( A (2)/SQF 
240 A( 3 ) =P I -A (1) —A < 2 ) 


•~i cr 

250 

260 

270 

271 

272 

O "7 
x.. / •-> 


GOTO 440 

PRINT "ENTER ANGLE, ANGLE, SIDE"; 
INPUT A3,A2,S3 
A(3)=A3 
A(2)=A2 
S(3)=S3 


280 A ( 1 ) =P I ~ A < 2) -A (3 > 


90 

GOTO 

160 

00 

PR I NT 

"ENTER S 

10 

INPUT 

SI,S2 , A1 

11 

S ( 1 ) = 

»***■ <t 

O X 


312 S(2)=S2 

313 A <1)=A1 

320 T=S(2)*SIN(A <1)) 

330 IF SIIKT THEN 520 
340 S (3) =SQR (S (2) •"'2-T " v 2) 
350 IF S(1K=T THEN 380 
360 Y=SQR (S < 1 ) ''2-T "'2 ) 

370 S(3)=S(3)+Y 
380 GOTO 220 
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390 PRINT "ENTER SIDE, SIDE, SIDE"; 
INPUT S1,S2,S3 


400 

401 

402 

403 
410 
420 
430 
440 

449 

450 

459 

460 
470 
475 


S(1> =S1 
S(2)=S2 
S(3)=S3 

A < 1 > = < S (2 ) ''2+S ( 3 ) -"2-S ( 1 ) ■-••2 ) /2/S ( 2 ) /S ( 3 ) 

A ( 1 ) =ATN < ( SQR ( 1 ~ (A ( 1 ) ) --2) ) / A ( 1 ) ) 

GOTO 220 
PRINT 

REM - RESTART PROGRAM 
FOR 1=1 TO 3 

REM -■ THE ANGLE OF A TRIANGLE CANNOT BE LESS THAN ZERO 
IF A(I)<0 THEN 520 
PRINT "SIDE ";I *" = "; 

PRINT INT < S(I> *1000+0- 5)/1000 
PRINT ”urruo 


490 

500 

510 

520 

530 


540 

549 

550 
560 


PRINT INT(A<I>*1000+0 
PRINT “RADIANS" 

NEXT I 
PR 1 NT 
GOTO 60 
PR I NT 

PRINT "NO SOLUTION" 

PR I NT 

REM - RESTART PROGRAM 

GOTO 60 

END 


■i» 

, 


OPTION 

It may be more convenient for you to work with angles in degrees rather than radians. The necessary 
program changes are listed following the examples below. 


Examples: 

A square measures 8.76 by 8.76 inches. What is the length of its diagonal? 
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SOME COMMON BASIC PROGRAMS - ATARI 


The ladder of a slide measures 10 feet, the slide measures 14 feet, and it covers 13 feet of ground from 
base of ladder to tip of slide. How steep is the slide? 



PARTS OF A TRIANGLE 
PROBLEM TYPES: 


1 - ASA , 2—S AS , 3=AAS 
4=SSA, 5=SSS, 6= 


-• V 


ENTER PROBLEM TYPE? 

ENTER SIDE, ANGLE, SIDE? 8.76,90,8.76 


SIDE 1 = 

12.389 


OPPOSITE 

ANGLE = 90 

DEGREES 

SIDE 2 = 

O T / 

a / O 


OPPOSITE 

ANGLE = 45 

DEGREES 

SIDE 3 = 

8. 76 


OPPOSITE 

ANGLE = 45 

DEGREES 

ENTER PROBLEM TYPE? 

5 

ENTER SIDE, SIDE, S 

IDE? 10,13,14 

SIDE 1 = 

10 


OPPOSITE 

ANGLE = 43 

.279 DEGREES 

SIDE 2 = 

13 


OPPOSITE 

ANGLE = 63 

. 027 DEGREES 

SIDE 3 = 

14 


OPPOSITE 

ANGLE = 73 

.694 DEGREES 


ENTER PROBLEM TYPE? 6 


1 REM - OPTION 36-37, 145-146, 205, 275-276, 315- 435-4.86 
5 GRAPHICS 0 

10 PRINT "PARTS OF A TRIANGLE" 

« 

35 PI-3.1415927 

36 REM - SET CONVERSION FACTOR FOR CONVERTING DEGREES TO RADIANS 

37 C=0.0174532927 



PARTS OF A TRIANGLE 


38 REM 


ENTER NUMBER OF PROBLEM TYPE ACCORDING TO KNOWN PART 


143 A(2)=A2 
145 A<1>=A<1)*e 
A(2 > =A < 2 > *C 
150 A(3)=PI—A(1>-A(2) 


203 8<2)=S2 

iBIBillilliBI^A tt 

210 8(1) =SQR (S ( 3 ) - 2+8 (2) ''2- 


2*8(3)*8(2)*COS< A <1)> > 


273 8(3)=83 




280 A(1)=PI-A(2) 


A (3) 



A(1)=A1 




( 2 ) *8 1N ( A ( 1 )) 



480 PRINT "OPPOSITE ANGLE 


490 NEXT I 


CS 


60 END 
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Analysis of Two Vectors 


This program calculates the angle between two given vectors, the angle between each vector and axis, 
and the magnitude of each vector. The vectors are given in three-dimensional space. 


Example: 

Find the angle (9 ) between a diagonal of a cube and a diagonal of one of its faces. The cube measures 
4x4x4. 



ANALYSIS OF TWO VECTORS 

VECTOR t: X,Y,Z? 0,4,4 
VECTOR 2: X, Y, Z? 4,4,4 


VECTOR 1 : 

MAGNITUBE: 

cr 

■ 

65685417 

ANGLE WITH 

X- 

•AXIS: 

90.000002 

ANGLE WITH 

Y- 

AXIS: 

44.99999996 

ANGLE WITH 

Z- 

•AXIS: 

44.99999996 

VECTOR 2 : 

MAGNITUDE: 

6 . 

92820314 

ANGLE WITH 

X- 

AXIS: 

54.73561062 

ANGLE WITH 

Y- 

AXIS: 

54.73561062 

ANGLE WITH 

Z- 

AXIS: 

54.73561062 


ANGLE BETWEEN VECTORS: 35.26438793 


MORE DATA <1=YES, 0=N0>? 0 


5 GRAPHICS 0 

10 PRINT "ANALYSIS OF TWO VECTORS" 
20 PRINT 

30 DIM X(2),Y(2),Z(2),M(2) 

35 PI=3.1415927 








ANALYSIS OF TWO VECTORS 


39 REM - STATEMENTS 

40 PRINT "VECTOR is 

50 INPUT X1,Y1,Z1 

51 X(1)=X1 

52 Y(1)=Y1 

53 Z(1)=Z1 

60 60 PRINT "VECTOR 

70 INPUT X2,Y2,Z2 

71 X(2)=X2 

72 Y(2)=Y2 

73 Z(2)=Z2 
80 PRINT 


40 TO 70 REQUEST USER INPUT 
X,Y,Z" ; 



x, y,Z"; 


89 REM - LOOP TO ANALYZE BOTH VECTORS 

90 FOR 1=1 TO 2 


99 REM - CALCULATE MAGNITUDE, PRINT 

100 M ( I ) =SQR < X < I ) "'"2+Y ( I ) "'2+Z ( I ) y '2 ) 

109 REM - IF VECTOR A POINT? IF YES, CANNOT COMPUTE AN ANGLE 

110 IF M(I> =0 THEN 220 
120 PRINT "VECTOR " 5 I;" :" 

130 PRINT "MAGNITUDE: "? M(I) 

139 REM - CONVERSION FACTOR FOR RADIANS TO DEGREES 

140 5=57.29578 

,149 REM - CALCULATE ANGLE BETWEEN VECTOR AND X-AXIS, PRINT 
150 J=X<I>/M<I) 

160 PRINT "ANGLE WITH X-AXIS: "5 
162 IF J=0 THEN 167 

165 PRINT ATN((SQR(1-J A 2))/J)*S 

166 GOTO 170 


167 

169 

170 

180 

1 QO 
1 Oil 

1 OCT 
1 OsJ 

186 

187 

189 

190 
200 
202 

205 

206 
207 
210 


PRINT S*FI/2 

REM - CALCULATE ANGLE BETWEEN VECTOR AND Y-AXIS, 
J=Y(I)/M(I) 

PRINT "ANGLE WITH Y-AXIS: “; 

IF J=0 THEN 187 

PR I NT ATN < ( SQR ( 1 -.J-"'2) ) / J) *S 

GOTO 190 

PRINT S*PI/2 

REM - CALCULATE ANGLE BETWEEN VECTOR AND Z-AXIS, 
•J=Z( I >/M( I ) 

PRINT "ANGLE WITH Z-AXIS: 

IF J=0 THEN 207 

PR I NT ATN ( (SQR ( 1 -J"'2) ) / J) *S 

GOTO 210 

PRINT S*PI/2 

PR I NT 

NEXT I 

•J=0 


PRINT 


PRINT 


239 REM - IF EITHER VECTOR A POINT, CANNOT COMPUTE ANGLE 

240 IF M(1)=0 THEN 310 
250 IF M < 2)=0 THEN 310 

259 REM - CALCULATE ANGLE BETWEEN VECTORS 

260 J= < X(1> *X < 2 > +Y <1> *Y < 2 > +Z <1)*Z < 2)>/M <1)/M < 2 > 

269 REM - ARE THE VECTORS PERPENDICULAR? 

270 IF JOO THEN 300 
280 J=90 


60 


SOME COMMON BASIC PROGRAMS - ATARI 


299 REM - CALCULATE ANGLE IN DEGREES, 

300 J=ATN (SQR (1 -J"'2) / J) *S 

310 PRINT "ANGLE BETWEEN VECTORS: ";j 
320 PRINT 


330 

340 


REM - 
PRINT 
INPUT 


RESTART OR END PROGRAM? 
"MORE DATA (1=YES, 0=N0)" ; 
Z 


350 IF Z=1 THEN 40 
360 END 


PRINT 
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Operations on Two Vectors 


This program performs four operations on two vectors given in three-dimensional space. The operations 
performed are: 

1. Addition 

2. Subtraction 

3. Scalar (dot) product 

4. Cross product 


Example: 

Vectors are drawn from the origin to two points A(5, —1,2) and B(l,4,9). Add, subtract, and find the dot 
and cross product of these vectors. 

OPERATIONS ON TWO VECTORS 


VEST OR A: X,Y,Z? 5,-1,2 
VECTOR B: X , Y,Z? 1,4,9 

A+B = 6,3,11 
A-B = 4,-5,-7 
A.B = 19 
A*B = -17,-43,21 

MORE DATA (1=YES, O-NO)? 0 


5 GRAPHICS O 

10 PRINT "OPERATIONS ON TWO VECTORS" 

20 PRINT 

30 PRINT "VECTOR A: X,Y,Z"; 

40 INPUT X1,Y 1,7.1 

50 PRINT "VECTOR B: X,Y,Z"; 

60 INPUT X2,Y2,Z2 
70 PRINT 

79 REM - PERFORM VECTOR ADDITION, PRINT RESULTING VECTOR COORDINATES 

80 PRINT "A+B = ";X1+X2;Y1+Y2; 

85 PRINT ;Z1+Z2 

89 REM - PERFORM VECTOR SUBTRACTION, PRINT RESULTING VECTOR COORDINATES 

90 PRINT "A-B = X1-X2;Y1-Y2; 

95 PRINT ",”? Z1-Z2 

99 REM - CALCULATE DOT PRODUCT, PRINT 

100 PRINT “A.B = X1*X2+Y1*Y2+Z1*Z2 

109 REM - CALCULATE CROSS PRODUCT, PRINT RESULTING VECTOR COORDINATES 

110 PRINT "A*B = "?Y1*Z2-Z1*Y2?","5 
115 PRINT Z1*X2-X1*Z2; " , " ; X1*Y2-Y1*X2 
120 PRINT 

129 REM - RESTART OR END PROGRAM? 

130 PRINT "MORE DATA (1=YES, 0=N0>"? 

140 INPUT Z 


150 IF Z=1 THEN 20 
160 END 
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Angle Conversion: Radians to Degrees 


This program converts an angle given in radians to degrees, minutes, and seconds. 


Example: 

How many degrees, minutes, and seconds are there in an angle of 2.5 radians? In 118 radians? 
ANGLE CONVERSION: RADIANS TO DEGREES 


(ENTER 0 TO END THIS PROGRAM) 
ANGLE IN RADIANS? 2.5 

DEGREES = 143 
MINUTES = 14 
SECONDS = 22.01 

ANGLE IN RADIANS? 118 

DEGREES = 280 
MINUTES = 54 
SECONDS = 6.77 

ANGLE IN RADIANS? 0 


5 GRAPHICS O 

6 PI=3.1415927 

10 PRINT "ANGLE CONVERSION: RADIANS TO DEGREES" 

20 PRINT 

30 PRINT “(ENTER 0 TO END THIS PROGRAM)" 

50 PRINT "ANGLE IN RADIANS"; 

60 INPUT R 

69 REM - TEST FOR END OF PROGRAM 

70 IF R=0 THEN 170 

79 REM - CONVERT RADIANS TO SECONDS 

80 A=3600*1S0*R/PI 

89 REM - CALCULATE NUMBER OF WHOLE DEGREES 

90 D=INT(A/3600) 

99 REM - CALCULATE NUMBER OF FULL CIRCLES 

100 D1=INT(D/360) 

105 PRINT 

109 REM - CALCULATE DEGREES OF ANGLE WITHIN 360 DEGREES, 

110 PRINT " DEGREES « !";D~360*D1 

119 REM - CALCULATE MINUTES, PRINT 

120 PRINT *' MINUTES = 

125 PRINT INT<(A-D*3600>/60> 

129 REM - CALCULATE SECONDS, ROUND OFF, PRINT 

130 S=A-D*3600~(INT <(A-D*3600)/60))*60 
140 PRINT " SECONDS * "5 
145 PRINT INT(100*S+0.5)/100 


PR I NT 
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150 PRINT 

159 REM - RESTART PROGRAM 

160 GOTO 50 
170 END 


OPTION 

You may prefer your answer in degrees and fractions of degrees rather than degrees, minutes, and 
seconds. The necessary program changes are listed following the example below. 


Example: 

How many degrees are there in an angle of 2.5 radians? 


ANGLE CONVERSION: RADIANS TO DEGREES 


(ENTER 0 TO END THIS PROGRAM) 
ANGLE IN RADIANS? 2.5 

DEGREES = 143 


ANGLE 


IN RADIAN 


0 


1 REM -- OPTION 110-120 

5 GRAPHICS 0 

6 PI=3.1415927 

10 PRINT "ANGLE CONVERSION: RADIANS TO DEGREES" 

9 

109 REM - CALCULATE DEGREES OF ANGLE WITHIN 360 DEGREES, PRINT 


If 


110 PRINT " DEGREES » 

120 PRINT TNT (<D~360*D1 )*100*0* 5>/100 
150 PRINT 


170 END 



64 


Angle Conversion: Degrees to Radians 


This program converts an angle given in degrees, minutes, and seconds to radians. 


Examples: 

An angle measures 30 degrees, 5 minutes, and 3 seconds. What would be the measure of this angle in 
radians ? 

What would be the radian measurement of two angles measuring 278 degrees, 19 minutes, 54 seconds 
and 721 degrees, 0 minutes, 0 seconds? 


ANGLE CONVERSION: DEGREES TO RADIANS 


(TO END- ENTER 0,0,0) 
ANGLE IN DEGREES, MINUTES, 

RADIANS =0.5250676851 


SECONDS: 


ANGLE IN DEGREES, MINUTES, 
? 278,19,54 
RADIANS =4.85780328 


SECONDS 


ANGLE IN DEGREES, MINUTES, SECONDS: 
? 721,0,0 

RADIANS =0.01745149 

ANGLE IN DEGREES, MINUTES, SECONDS: 
? 0, 0,0 


5 GRAPHICS 0 

10 PRINT "ANGLE CONVERSION: DEGREES TO RADIANS" 

20 PRINT 

30 PRINT "(TO END, ENTER 0,0,0)" 

40 PRINT "ANGLE IN DEGREES, "; 

45 PRINT "MINUTES, SECONDS:" 

50 INPUT D,M, S IlLHliill' ‘ 

59 REM - TEST FOR END OF PROGRAM 

60 IF DOO THEN 100 

70 IF MOO THEN 100 

80 IF SOO THEN 100 MU 

90 goto 150 mmmm&Sm 

99 REM - CONVERT DEGREES, MINUTES, SECONDS TO DEGREES 

100 A=D+M/60+3/3600 

109 REM - CALCULATE NUMBER OF COMPLETE Cl ROLFS 

110 R=INT(A/360) 

119 REM - CALCULATE ANGLE WITHIN 360 DEGREES, PRINT 

120 PRINT "RADIANS = "; 

125 PRINT A*0.01745329-R*6.2831853 
130 PRINT 
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139 REM - RESTART PROGRAM 

140 GOTO 40 
150 END 


OPTION 

It may be more convenient for you to enter the angle in degrees and fractions of degrees rather than 
degrees, minutes, and seconds. The necessary program changes are listed following the example below. 


Example: 

How many radians are in an angle measuring 33.08 degrees? 90 degrees? 


ANGLE CONVERSION: 


DEGREE 



TO RADIANS 


(TO END, ENTER 0) 
ANGLE IN DEGREES ? 33 
RADIANS =0,5773548332 


0 




ANGLE IN DEGREES ? 90 
RADIANS =1.5707961 

ANGLE IN DEGREES ? 0 


l REM - OPTION 30-60 
5 GRAPHICS 0 


10 PRINT "ANGLE CONVERSION: DEGREES TO 
20 PRINT 

30 PRINT "(TO END, ENTER 0)" 

40 PRINT "ANGLE IN DEGREES "5 
50 INPUT A 

59 REM - TEST FOR END OF PROGRAM 

60 IF A=0 THEN 150 

109 REM - CALCULATE NUMBER OF COMPLETE 


RADIANS 


II 


CIRCLE 


9 • 


150 END 
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Coordinate Conversion 


This program converts the coordinates of a point given in Cartesian coordinates to polar coordinates, 
and vice versa. 

The formulas for the conversions are: 


r - \fx 2 + y 2 
A - arctangent (y[x) 
x - r • cosine (A) 


y - r * sine (A) 


where: x 

y 

r 

A 


= abscissa) ^ A . 

= ordinate/ Cartesian coordinates 

= magnitude of ray) ~ . 

= angle (in degrees)/ Polar coor d'nates 


Examples: 

Find Cartesian coordinates of the point (2,30.5°) given in polar coordinates. 

If a point is at (7,18) in the Cartesian system, what are its coordinates in the polar system? 
A point is located at (0, -46.8). What is its location in polar coordinates? 

COORDINATE CONVERSION 

( 1“CARTESIAN TO POLAR) 

<-i-POLAR TO CARTESIAN) 

( 0—END PROGRAM) 

WHICH DIRECTION? -1 
R,A? 2,30.5 
X = 1.72, Y - 1.02 

WHICH DIRECTION? 1 
X,Y? 7,13 

R = 19.31, A = 68.75 

WHICH DIRECTION? 1 
X,Y? 0,-46.8 
R = 46.8, A = 270 

WHICH DIRECTION? 0 

5 GRAPHICS 0 

6 PI-3.1415927 

10 PRINT "COORDINATE CONVERSION" 

20 PR INI- 

30 PRINT " ( 1-CARTESIAN TO POLAR)" 

40 PRINT " (-1-POLAR TO CARTESIAN)" 
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50 PRINT 


ii 


( 0=END PROGRAM)" 


cr cr 


PRINT 


60 PRINT "WHICH DIRECTION" 

70 INPUT D 

79 REM - END PROGRAM? 

80 IF D=0 THEN 380 

89 REM - DIRECT PROGRAM TO PERFORM PROPER CONVERSION 

90 IF D=-l THEN 320 

98 REM -- CONVERT FROM CARTESIAN COORDINATES TO POLAR COORDINATES 

99 REM - ENTER CARTESIAN COORDINATES (ABSCISSA, ORDINATE) 

100 PRINT "X,Y“? 

110 INPUT X,Y 

119 REM - POINT ON Y-AXIS? 

120 IF X=0 THEN 170 

129 REM -■ POINT ON X-AXIS? 

130 IF Y=0 THEN 260 

139 REM - COMPUTE POLAR COORDINATES, ROUND OFF, PRINT 

140 PR I NT " R = " ? I NT (SON ( X ) *SQR ( X " x 2+Y" 2 ) * 100+0.5)7100 ? " , " 5 
150 PRINT " A - ";INT(ATN(Y/X > *180/PI*100+0.5)/100 

160 GOTO 55 

169 REM - POINT IS ON Y-AXIS? AT ORIGIN? 

170 IF Y=0 THEN 240 

180 PRINT "R = "?ABS(Y)?",“? 

189 REM - IS POINT ABOVE OR BELOW ORIGIN? 

190 IF Y<0 THEN 220 
200 PRINT " A = 90" 

210 GOTO 55 

220 PRINT " A = 270" 

230 GOTO 55 

239 REM - POINT IS AT ORIGIN 

240 PRINT "R = 0, A = 0" 
aC. O U U I U -I ‘.J 

259 REM - POINT IS ON X-AXIS 

260 PRINT 11 R = ,, ;ABS(X) ? % n ? 

269 REM - IS POINT TO LEFT OR RIGHT OF ORIGIN? 

270 IF X<0 THEN 300 
280 PRINT " A = O' 1 

90 GOTO 55 


A. 


300 
310 

318 

319 

320 
330 

>*”« i~i 

/ 

340 

349 

350 

’“•CCT 

-4 I 1 

w* V 1 w 


PRINT " A = 180" 

GOTO 55 

REM - CONVERT FROM POLAR COORDINATES TO CARTESIAN COORDINATES 
REM - ENTER POLAR COORDINATES (MAGNITUDE OF RAY, ANGLE) 

PRINT "R,A"? 

INPUT R,A 

REM - CONVERT FROM DEGREES TO RADIANS 
M=(A-1NT(A/360)*360> *PI/180 

REM - CALCULATE CARTESIAN COORDINATES, ROUND OFF, PRINT 
PRINT "X = 


II 


PRINT INT(R*COS(M)*100+0.5)/100? 
360 PRINT ", Y = "? 

365 PRINT INT(R*SIN(M)*100+0.5)/100 

369 REM - RESTART PROGRAM 

370 GOTO 55 
380 END 
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Coordinate Plot 


This program plots points on a set of coordinate axes. You must provide the x and y coordinates of all 
points to be plotted, the endpoints of the x and y axes, and the increment between points on each axis. 
The graph is unconventional in that its x axis runs vertically while its y axis runs horizontally. In 

addition, the axes do not necessarily intersect at zero. A reminder about where the axes intersect is 
printed at the top of each graph. 

The limit on the number of points plotted may be increased or decreased by altering statement 30 in 
the following manner: 


30 DIM X <7V+ /> , ViN + /) 

where N - the maximum number of points you wish to plot. 


The length of the y axis is limited by the width of the output device. This program tests for a length not 
to exceed the width of the Atari screen. The test at statement 90 should be altered to accommodate your 
particular output device. For an output device with a line width of 132 characters you might enter: 

90 IF B2<=132 THEN 120 


Example: 

The heights of twelve men and their sons are recorded in the table below. Plot the data points. 


Father 

Son 


65 

63 

67 

64 

68 

62 

70 

66 

68 

67 

69 

71 

68 

66 

68 

65 

69 

66 

68 

65 

71 

67 

68 

70 


Height in Inches 


COORDINATE PLOT 


X-AXIS! LOWER ENDPOINT. 

UPPER ENDPOINT, INCREMENT? 62,7 
Y-AXIS: LEFT ENDPOINT, 

RIGHT ENDPOINT, INCREMENT? 62,7 
NUMBER OF POINTS? 12 


-.3 7 


' 


OF POINT 

1? 65,63 

POI NT 

2? 63,66 

POINT 

3? 67,68 

POINT 

4? 64,65 

POINT 

5? 63,6? 

PO I NT 

6 ? 62,66 

POINT 

7 ? 7 U,68 

PO I NT 

8 ? 66,65 

POINT 

9? 68,71 

POINT 

10? 67,67 

PO I NT 

11? 69,68 

PO I NT 

12 ? 71,70 



5 





COORDINATE PLOT 


INTERSECTION OF AXES AT (62,62) 


# •#•■*•* •*•«•***•# -H* + *•*#«?■*■*#•*•* # Y 


* 

■* 

-H* 

•* 

* 

#■ 

•m* 

•* 

«■ 

* 

*• 

# 

* 

x 


5 GRAPHICS 0 

10 PRINT "COORDINATE PLOT" 

20 PRINT 

28 REM - DIMENSION OF XO AND Y<> SHOULD BE LIMITED 

29 REM - WHERE N=THE NUMBER OF POINTS BEING PLOTTED 

30 DIM X <100) , Y ( 100) 

39 REM - INPUT INFORMATION TO SET UP AXES 

40 PRINT "X-AXIS: LOWER ENDPOINT," 

45 PRINT "UPPER ENDPOINT, INCREMENT"; 

50 INPUT A1,A2,A3 

60 PRINT "Y-AXIS: LEFT ENDPOINT," 

65 PRINT "RIGHT ENDPOINT, INCREMENT"; 


70 INPUT B1,B2,B3 


80 B2=(B2 

88 REM - 

89 REM - 

90 IF B2< 
100 PRINT 


-B1>/B3 

Y-AXIS TOO LONG FOR OUTPUT DEVICE? 
OR INCREASE INCREMENT 
=40 THEN 120 
"Y-RANGE TOO LARGE" 


IF YES, 


TO (N+l); 
MAXIMUM LIMIT 


CHANGE ENDPOINT 


110 GOTO 60 

120 PRINT "NUMBER OF POINTS"; 

130 INPUT N 

139 REM - NO POINTS TO PLOT? END PROGRAM 

140 IF N=0 THEN 1070 

149 REM - TOO MANY POINTS? IF YES, REENTER NUMBER OF POINTS 

150 IF N<=99 THEN 180 

160 PRINT "TOO MANY POINTS" 

170 GOTO 120 

179 REM - LOOP TO INPUT X,Y COORDINATES FOR EACH POINT 
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1 SO 
3 90 
200 
210 
220 

232 

234 

239 

240 
250 
260 
xl, O 

270 

280 

290 


yvv 

t4 * | 


300 

301 
310 
3 3 9 
320 
330 
340 
350 
360 
370 
380 
390 
400 
41.0 
420 
430 
440 

449 

450 


460 

470 


489 

490 
495 
500 

509 

510 

519 

520 

529 

530 

539 

540 

549 

550 
560 


FOR 1=1 TO N 
IF I>1 THEN 220 

PRINT “COORDINATES OF POINT " ; I: 

GOTO 230 

PRINT " POINT ";l; 

INPUT Xl,Yl 
X(I> =X1 
Y(I)=Y1 

REM - ROUND OFF EACH X,Y TO NEAREST INCREMENT ON AXIS 
X< I ) = INT( ( X ( I )-~Al > / A3+0.5 > 

Y(I)=INT(<Y(I>-Bl)/B3+0.5> 

NEXT I 

REM - CALCULATE ADDITIONAL X AND Y COORDINATE 
Y(N+1)=INT(B2+0.5)+1 
X(N+1> = INT <(A2-A1)/ A3+0.5) +1 
PR I NT 

REM ~ NOTE WHERE AXES CROSS 
PRINT "INTERSECTION OF AXES AT ("; 

PRINT Al;",";Bl;")" 

PRINT 

REM - SORT COORDINATES; REORDER X(l) TO X(N) SMALLEST TO LARGEST 
FOR J=1 TO N 

FOR 1=1 TO N-J 
A=X(I) 

B=Y<I) 

C=X<1+1) 

D=Y<1 + 1) 

IF ACC THEN 430 

X(I)=C 

Y(I)=0 

X ( I +1 ) = A 

Y(1+1)=B 

NEXT I 

NEXT J 

REM - NEXT POINT TO BE PLOTTED STORED IN T 
T=1 

REM - SKIP POINTS OUT OF X-POSITIVE RANGE 

FOR P=0 TO N-l 

IF X(P+1)>=0 THEN Q=P:P=N 

NEXT P 

P=Q 

REM - LOOP TO CALL UP EACH X-INCREMENT FOR LINES OF PRINT 
FOR I=0 TO INT((A2-A1)/A3+0.5) 

F=0 

T=T+P 

REM - COUNT NUMBER OF POINTS TO BE PLOTTED ON EACH l INE IN P 
P-0 

REM - ALL POINTS PLOTTED? 

IF T>N THEN 540 

REM - X-VALUE ON X-LINE? IF YES, TEST FOR Y 
IF X < T) = 1 THEN 590 

REM - FIRST LINE? IF YES, Y-AXIS MUST BE PLOTTED 
IF 1=0 THEN 570 

REM - PLOT X-AXIS 

PRINT 

GOTO 1040 
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570 S=N+1 
580 GOTO 920 
590 FOR L-T TO N 

599 REM - NEXT POINT PLOTTED ON SAME LINE 

600 IF X < L)<=X < T) THEN P=P+1 
620 NEXT L 

629 REM - PLOT ONE POINT 

630 IF P=1 THEN 730 

638 REM -- LOOP TO SORT Y-COORDI NATES WITH EQUAL 

639 REM - REORDER SMALLEST TO LARGEST 

640 FOR J=1 TO P 
650 FOR l„=l TO P-..J 
660 D~Y(T+L- J) 

670 B=Y(T+L> 

680 IF DOB THEN 710 

690 Y ( T +L-1 ) =8 

700 Y(T+L)=D 

710 NEXT L 

720 NEXT J 

730 FOR L=0 TO P-1 

740 Z-'Y ( T+L ) 

749 REM - TEST FOR OUT-OF RANGE Y-COORDINATE 

750 IF Z>=0 THEN 770 
760 NEXT L 

769 REM - POINT TO BE PLOTTED ON X-AXIS? 

770 IF 1=0 THEN 910 

779 REM - POINT TO BE PLOTTED ON Y-AXIS? 

780 IF Z=0 THEN 800 

789 REM - PLOT X-AXIS 

790 PRINT 
795 F=F+1 

800 IF L-P-l THEN 870 
810 FOR J=L TO P-1 

819 REM - TEST FOR OUT-OF RANGE Y-COORDINATE 

820 IF Z>B2 THEN 1040 

829 REM - BYPASS DUPLICATE COORDINATES 

830 IF Y(T+,J)=Z THEN 860 

839 REM - PLOT POINT 

840 IF Z-FCl THEN 845 

841 FOR R=1 TO Z-F 

842 PRINT " "; 

843 F=F+1 

844 NEXT R 

845 PRINT ,, + "; 

346 F=F+1 

850 Z=Y ( T+.J) 

860 NEXT J 

869 REM - TEST FOR OUT-OF RANGE Y-COORDINATE 

870 IF ZCO THEN 1040 
880 IF Z>B2 THEN 1040 

889 REM - PLOT POINT 

890 IF Z-FCl THEN 895 

891 FOR R=1 TO Z-F 

892 PRINT 

893 F=F+1 


X-COORDINATES 


II II 
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894 

895 

896 
900 
910 

919 

920 

929 

930 

939 

940 


NEXT R 
PRINT ,, + "; 

F=F+i 
GOTO 1040 
S-T+L 

REM - LOOP TO ESTABLISH PRINT FOR FIRST LINE 
FOR J=0 TO B2 

REM - POINT TO BE PLOTTED? 

IF Y(S)OJ THEN 1010 
REM - PLOT POINT 
PRINT ,, + "; 


949 REM - BYPASS DUPLICATE COORDINATES 

950 FOR K=S TO T+P-l 

960 IF Y<K)=Y(S) THEN 990 

970 S=K 

980 GOTO 1020 

990 NEXT K 

1000 GOTO 1020 

1009 REM - PLOT Y-AXIS 

1010 PRINT ; 

1020 NEXT J 

1029 REM - L.ABEL. Y-AXIS 

1030 PRINT "Y"i 

1039 REM - ADVANCE OUTPUT DEVICE TO NEXT L1NE 

1040 PRINT 

1050 NEXT I 

1059 REM - LABEL X-AXIS 

1060 PRINT “X" 


1070 END 
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Plot of Polar Equation 


This program plots a given function in polar coordinates. There are up to 90 points plotted, one every 
four degrees. (Some points may overlap.) 

The graph is conventional in that the x axis runs horizontally, they axis runs vertically, and the axes 
intersect at zero. You need only specify the absolute value of the endpoints. 

The increment between each point on the x and y axes is adjusted so that a value of one on either axis 
is equidistant from zero. This allows the function to be plotted with minimal distortion. An adjustment 
of each increment is necessary because of different spacing horizontally and vertically on an output 
device. If your output device differs from the one used here your graph may be distorted. 

It is necessary for you to enter the function to be plotted before you run the program. The function 
must be entered as a function of d. fid) will be entered and set equal to Fat line 130. For example, the 
function fid) = 2-(l —cos id)) will be entered as follows: 

130 F-2*(1-COS<D)) 


Example: 

Plot the equation fid) = 2 • (1 — cos id)). 
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PLOT OF POLAR EQUATION 
ABSOLUTE VALUE OF ENDPOINTS? 4 


INCREMENT OF X-AXIS 
INCREMENT OF Y-AXIS 


=0.1333333333 
— 0.2222222222 


* * * PLEASE WAIT A FEW MINUTES 
FOR THE GRAPH TO APPEAR 






Y 

5 GRAPHICS 0 

10 PRINT "PLOT OF POLAR EQUATION" 

20 PRINT 

27 REM - COORDINATE ARRAYS SET FOR 

28 REM - 90 POINTS? ONE EXTRA 

29 REM - X-COORDINATE IS CALCULATED 






PLOT OF POLAR EQUATION 


75 


30 DIM X (91 ) » Y (90) 

31 REM 

38 REM - N IS THE NUMBER OF POINTS 

39 REM - TO BE CALCULATED 

40 N-90 

48 REM - ABSOLUTE VALUE OF ALL 

49 REM -- ENDPOINTS ARE EQUAL 

50 PRINT "ABSOLUTE VALUE OF ENDPOINTS"? 

60 INPUT Z 

70 PRINT 

75 X1=15 

76 Y1 = 3 8 

77 REM - CALCULATE INCREMENTS OF AXES 

78 REM - ACCORDING TO CHARACTERS 

79 REM - PER AXIS 

80 PRINT "INCREMENT OF X-AXIS ="?Z/X1 
90 PRINT "INCREMENT OF Y-AXIS = "?Z/Y1 
100 PRINT 

102 PRINT "* *■ * PLEASE WAIT A FEW MINUTES * * # 
104 PRINT " FOR THE GRAPH TO APPEAR" 

108 REM - E IS THE NEXT PRINT LOCATION 

109 E-1 

110 FOR 1=1 TO N 

119 REM - CONVERT DEGREES TO RADIANS 

120 D—0.06981317*1 

127 REM - ENTER FUNCTION IN LINE 130 

128 REM - AS A FUNCTION OF D' 

129 REM - ("130 F=-FUNCTION'") 

130 F=2*<l-COS(D)) 

137 REM - CALCULATE EACH CARTESIAN 

138 REM - COORDINATE, ROUND OFF TO 

139 REM - NEAREST INCREMENT ON AXIS 

140 X(I)=INT(((F*COS(D)/Z+1)*X1)+0.5) 

150 Y(I) = INT(((-F*SIN(D)/Z+1>*Y1)+0.5> 

160 NEXT I 

165 REM 

167 REM - SORT COORDINATES; REORDER 

168 REM - Y(1) TO Y(N) SMALLEST 

169 REM - TO LARGEST 

170 FOR J=1 TO N 
180 FOR 1=1 TO N-J 
190 A=X(I) 

200 B=Y(I) 

210 IF BOY (1 + 1) THEN 260 
220 X(I)=X(I+1> 

230 Y(I)=Y(1+1) 

240 X(I+1)=A 
250 Y(I+1)=B 
260 NEXT I 
270 NEXT J 

278 REM - NEXT POINT TO BE PLOTTED 

279 REM - IS STORED IN 'T' 

280 T=1 

288 REM - SKIP POINTS OUT OF THE 

289 REM - Y-PQSITIVE RANGE 
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290 
300 
310 
318 
3 . 1 . 9 
320 

O O n 

oo o 
*„> 

•j **“i i“j 

■..* y 

340 

349 

350 
359 
330 
339 
370 
o / V 

380 

O O c 

.» •„> 

386 
390 
400 
410 
418 
4.19 


420 FOR 
430 


440 

450 

460 

467 

468 

469 

470 
480 
490 
500 
510 
520 
530 
540 
550 

559 

560 
570 
580 

crr."7 
O / 

CTO O 
-JOO 

K* 

•.jo y 

590 
600 
6.10 
618 
61 9 


FOR P=0 TO N1 

IF Y(F'+1 )>=0 THEN 320 

NEXT P 

REM - LOOP TO CALL UP EACH Y-~ 

REM - INCREMENT FOR LINES OF PRINT 

FOR 1=0 TO Yi*2 

T=T+P 

REM - NUMBER OF POINTS TO BE 
REM - PLOTTED ON EACH LINE 
REM - STORED IN P 
P=0 

REM - ALL POINTS PLOTTED? 

IF T>N THEN 370 

REM - Y-VALUE ON Y-L.INE? 

IF Y(T)=I THEM 420 
REM - PRINT X-AXIS 
IF I-Y1 THEN 400 
REM - PRINT Y-AXIS 
Z-X1:GOSUB 950 

PRINT CHRT(124);:REM VERT. BAR 
E=E+t 

GOTO 860 
S=N+1 
GOTO 740 

REM - NEXT POINT TO BE PLOTTED 
REM - ON SAME LINE? 

L=T TO N 

IF Y(L)>Y(T) THEN 450 
P=P+ 1 
NEXT L 

IF P=1 THEN 560 

REM - LOOP TO SORT X-COORDINATES 
REM - WITH EQUAL Y-COORDINATES; 

REM - REORDER SMALLEST TO LARGEST 
FOR J=1 TO P 
FOR L=.t TO P-.J 
C=-X ( T+L-1 ) 

A=X < T+L) 

IF COA THEN 540 
X(T+L—1>=A 
X(T+L)=C 
NEXT L 
NEXT J 

REM - PRINT X-AXIS? 

IF I=Y1 THEN 730 

L=~i 

S=0 

REM - MORE THAN ONE POINT TO 
REM - BE PLOTTED AT SAME POINT 

REM - ON GRAPH? 

FOR K=0 TO P-1 

IF X(T+K)=L THEN 690 

L=X(T+K) 

REM - PLOT POINT TO THE LEFT 

REM - OF Y-AXIS? 
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620 IF I 
630 IF l 
640 IF ' 

649 REM 

650 Z=X 

655 PRI 

656 E=F 
660 S=1 

668 REM 

669 REM 


670 

679 

680 
685 


/.. O L 

I. .1 1 • • f 


690 

700 

709 

7 10 

715 

716 
720 
730 

739 

740 


759 

760 

761 
770 
780 
790 
800 
810 
820 
825 

O •-*. o 
•. .» / 

o o i 

840 

849 

850 
860 
86 i 
862 
870 

879 

880 


oos 

it O. J 


890 
900 
910 
920 
950 
960 


IF L-X1 THEN 660 
IF L<X1 THEN 670 
IF 8=1 THEN 670 
REM - PRINT Y-AXIS 
Z=X 1: GOSUB 950 

PRINT 0HR$<124);:REM VERT. BAR 
E=F+1 
s= l 

REM - POINT OUTSIDE OF 
REM -- X-POSITIVE RANGE? 

IF L>X1*2 THEN 860 

REM - PLOT POINT 

Z=L: GOS'UB 950 

PRINT 

E=E+1 

NEXT K 

IF S=1 THEN 860 
REM - PRINT Y-AXIS 
Z = X1:GOSUB 950 

PRINT CHR*(124)*:REM VERT. BAR 
E=E+1 
GOTO 860 
S=T 

REM - LOOP TO PRINT LINE OF X-AXIS 

FOR J=0 TO XI*2 

IF X(S)<>J THEN 830 

REM - PLOT POINT ON X-AXIS 

PRINT "* n ; 

F=F+1 

f / c* 

— ‘J 

IF IOT+P-1 THEN 840 
IF X (K ) OX (S > THEN 820 
K=K+1 
GOTO 780 

C* 1 / 

GOTO 840 

REM - PRINT X-AXIS 

PRINT CHR*(18);:REM HORZ. BAR 

E=E+1 

NEXT J 

REM - LABEL X-AXIS 
PRINT "X"; 

PR I NT 

REM - NEW LINE, RESET PRINT LOG. 
E=1 

NEXT I 

REM - LABEL Y-AXIS 
Z=Xl:GOSUB 950 
PRINT "Y" 

GOTO 999 

REM - SUBROUTINE TO TAB 
REM - Z IS TAB LOCATION, 

REM - E IS CURRENT 
IF Z-ECi THEN 990 
PRINT “ 
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970 E=E+1 
980 GOTO 950 
990 RETURN 
999 END 
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Plot of Functions 


This program calculates and plots up to nine functions. All functions must be functions ofx, and all will 
be plotted on the same set of axes. 

To set up the axes you must input the endpoints of the x and y axes. You must also state the 
increment by which the points on each axis are to be increased. 

The graph is unconventional in that its x axis runs vertically while its y axis runs horizontally. To read 
the graph you must either turn your output 90 degrees counterclockwise or mentally adjust to the change 
in convention. 

The graph is also unconventional in that its axes do not necessarily cross at zero. A reminder as to 
where the axes cross is printed at the top of each graph. 

You must enter the functions to be plotted as program statements prior to running the program. 
Statement numbers 221 to 229 are reserved for this purpose. Functions must be entered in the number 
sequence Y(l), Y(2),.. .,Y(9). For example, if you wish to plot the functions/(x)=2x + l and 
fix) = y/~x, you must type: 


221 Y<1>=2*X+1 

222 Y(2)=SQR(X) 

The length of the y axis is limited by the width of your output device. This program tests for a length 
not to exceed the width of the Atari screen. The test at statement 140 should be altered to accommodate 
your particular output device. For example, an output device with a line width of 64 characters will 
accommodate a graph 62 spaces wide. You would change statement 140 to: 

140 IF Y2062 THEN 170 


Example: 

Plot the equations f(x) = cos(x) and / (x) = sin(x). 
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PLOT OF FUNCTIONS 

NUMBER OF FUNCTIONS? 2 
X-AXIS: LOWER ENDPOINT, 

UPPER ENDPOINT,INCREMENT? -5,5,0.?5 
Y-AXIS: LEFT ENDPOINT, 

RIGHT ENDPOINT, INCREMENT? -2,2,0.1 


X-AXIS CROSSES Y-AXIS AT Y=~2 
Y AXIS CROSSES X-AXIS AT X=-5 


+ + + + + + + + + + + + + -)- + + +•+ +• + + + + 1 H- + + + + +-2 + + -M-H- + + + + 4.Y 


4 


1 


2 
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i 
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4- 
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2 
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IWn 
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4~ 
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4- 

? 



1 

+ 
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1 
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1 

win 
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1 

+ 


2 
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2 
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5 GRAPHICS 0 

10 PRINT "PLOT OF FUNCTIONS" 

20 PRINT 

29 REM - NUMBER OF FUNCTIONS WHICH CAN BE PLOTTED IS LIMITED TO 9 

30 DIM Y<9),A*<11) 

40 A$="123456789++" 

69 REM - STATEMENTS 79 TO 120 REQUEST USER INPUT 

70 PRINT "NUMBER OF FUNCTIONS"; 

80 INPUT N 

90 PRINT "X-AXIS: LOWER ENDPOI NT, " 

95 PRINT "UPPER ENDPOINT,INCREMENT"; 


100 

INPUT 

110 

PRINT 

115 

PR I NT 

120 

INPUT 

129 

REM - 

130 

Y2=(Y2 

1 oo 

REM - 

139 

REM - 

140 

IF Y2< 

150 

PRINT 

160 

GOTO 1 

170 

PRINT 

180 

PR I NT 

189 

REM - 

190 

PR I NT 

195 

PR I NT 

200 

PRINT 

210 

PR I NT 

2 1 9 

REM - 

220 

FOR X = 

V ■ / 1 

■MM 

REM - 

230 

FOR 1 = 

23? 

REM - 

240 

Y<I>=I 

250 

NEXT I 

259 

REM - 

260 

F OR I = 

269 

REM - 

270 

s=o 

280 

FOR J= 

289 

REM - 

290 

IF YU 

300 

S=S+1 

310 

T=.J 

320 

NEXT .. 


REM - 

O jil O 

REM - 

•"i •*"« o 
•-”» j£. / 

REM - 

330 

IF s><: 

340 

PR I NT 

350 

GOTO * 

360 

IF s>: 

370 

PR I NT 

380 

GOTO ' 


TEST FOR A Y-AXIS TOO LONG FOR OUTPUT DEVICE 


MAKE NOTE OF WHERE AXES CROSS 

II V A V T .!-• I”.»“• I-- V/ _ A V T II » 


C* l« « 
7 


SET UP LOOP TO READ VALUE AT EACH X-INCREMENT 


vyv 


ESTABLISH THE ROUNDED VALUE OF Y FOR EACH X-INCREMENT VALUE 


LOOP TO READ VALUE OF EACH Y-INCREMENT 


PLOT A POINT ON THIS SPOT? IF YES, STORE FUNCTION NUMBER IN T 


TEST FOR NUMBER OF POINTS TO PLOT ON EACH SPOT; 

IF 0 PRINT "+" (FIRST LINE ONLY), IF 1 PRINT FUNCTION NUMBER, 

IF 2 OR MORE PRINT "*" 
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390 PRINT 
400 NEXT I 

409 REM - LABEL AXES AT THE LAST SPACE ON EACH AXIS 

410 IF X>X1 THEN 430 
420 PRINT "Y"; 

429 REM -■ ADVANCE PRINTER TO NEXT LINF 

430 PRINT 

439 REM - PRINT SPACE INSTEAD OF " + " AFTER FIRST l INE 

440 A*(ii)=" " 

450 NEXT X 


460 PRINT "X" 
470 END 


OF 


PR I NT 


(Y-AXIS) 
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Linear Interpolation 


This program calculates they coordinates of points on a line given their x coordinates. It is necessary to 
know coordinates of two points on the same line. 

The point is interpolated using the following formula: 


O2 - Ji) • C* - *1) 

' = y ' + -( 3 ^)- 

where: jc, , y, = coordinates of first point on the line 

x 2 ,y 2 - coordinates of second point on the line 
x = abscissa of point to be interpolated 
y - ordinate of the point on the line with x 


Examples: 

A conversion table lists 60°F as 15.56°C and 90°F as 32.22°G. Calculate degrees Celsius of 73°F and 85.6°F. 

A new sales tax of 17.5% has been imposed on us. What will be the tax on a sofa which sells for 
$455.68? 


LINEAR INTERPOLATION 


X,Y OF FIRST POINT? 60,1 
X,Y OF SECOND POINT? 90, 
INTERPOLATE:X = ? 73 

Y = 22.779 


5 


CZJL 


O •**> •"> ■? 


MORE POINTS (1-YES, 0=N0>? 1 

INTERPOLATE:X = ? 85.6 

Y = 29.777 

MORE POINTS <1=YES, 0=N0>? O 

NEW LINE (1=YES, 0=N0>? 1 

X,Y OF FIRST POINT? 0,0 
X,Y OF SECOND POINT? 100,17.5 
INTERPOLATE:X = ? 455.68 

Y = 79.744 

MORE POINTS <1=YES, 0=N0>? O 
NEW LINE <1=YES, 0=N0)? 0 


5 GRAPHICS 0 

10 PRINT "LINEAR INTERPOLATION" 

20 PRINT 

29 REM ~ ENTER X- AND Y-COORDINATES OF TWO POINTS ON THE LINE 

30 PRINT "X»Y OF FIRST POINT"; 
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40 INPUT XI,Y1 

50 PRINT "X,Y OF SECOND POINT"; 

60 INPUT X2,Y2 

69 REM - ENTER X-COORDINATE OF POINT TO BE INTERPOLATED 

70 PRINT "INTERPOLATE:X = "; 

80 INPUT X 

89 REM - COMPUTE CORRESPONDING Y-COORDINATE 

90 Y=Y1+(Y2-Y1>/(X2-Xl>*<X-X1) 

99 REM - ROUND OFF, PRINT 

100 PRINT " Y = "; 

101 PRINT INT(Y*1000+0.5 >/1000 
110 PRINT 

120 PRINT "MORE POINTS <1=YES, 

130 INPUT Z 
140 PRINT 


0=N0) " ; 


150 IF Z = 1 THEN 70 

159 REM - INTERPOLATE ON ANOTHER LINE? 

160 PRINT "NEW LINE <t=YES, 0=N0)"J 
170 INPUT Z 

ISO IF Z=1 THEN 20 
190 END 
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Curvilinear Interpolation 


This program computes y coordinates of points on a curve given their x coordinates. You must input 
coordinates of known points on the curve, no two having the same abscissa. 

The computations are performed using the Lagrange method of interpolation. 

The number of known points on the curve which may be entered in the program is limited to 50. You 
may increase or decrease this limit by altering statement 30 according to the following scheme: 

30 DIM X< P ) ,Y< P ) 

where P - the number of known points on a curve. 


Examples: 

Consider the curvey = x 3 — 3x + 3. You know that the points (-3,-15), (—2,1), (—1,5), (0,3), 
(1,1), (2,5), and (3,21) are on the curve. What is the value ofy whenx = —1.65 and 0.2? 

Given the following points from a sine curve, what is the sine of —2.47 and the sine of 1.5? 

(- 5 , 0 . 958 ) ( 0 , 0 ) 

(- 4 , 0 . 757 ) ( 1 , 0 . 841 ) 

(- 3 ,- 0 . 141 ) ( 2 , 0 . 909 ) 

(- 2 ,- 0 . 909 ) ( 3 , 0 . 141 ) 

(- 1 ,- 0 . 841 ) ( 4 ,- 0 . 757 ) 

( 5 ,- 0 . 959 ) 


CURVILINEAR INTERPOLATION 

NUMBER OF KNOWN POINTS? 7 
X 7 Y OF POINT 1? -3,-15 
X,Y OF POINT 2? -2,1 
X,Y OF POINT 3? -1,5 
X,Y OF POINT 4? 0,3 
X,Y OF POINT 5? 1,1 
X,Y OF POINT 6? 2,5 
X,Y OF POINT 7? 3,21 

INTERPOLATE: X= ? -1.65 

Y= 3.45737496 

MORE POINTS HERE <1=YES, 0=NO)? 1 

INTERPOLATE: X= ? 0.2 

Y= 2.40799992 

MORE POINTS HERE <1=YES, 0=NO)? O 
ANOTHER CURVE (1=YES, 0=NO > ? 1 
NUMBER OF KNOWN POINTS? 11 
X,Y OF POINT 1? -5,0.958 
X,Y OF POINT 2? -4,0.757 
X,Y OF POINT 3? -3,-0.141 
X,Y OF POINT 4? -2,-0.909 
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X,Y OF POINT 
X,Y OF POINT 
X 7 Y OF POINT 
X,Y OF POINT 
X » Y OF POINT 
X 7 Y OF POINT 
X » Y OF POINT 


cr •-> 

.j ♦ 

“*1 

> * 

-0.841 

6? 

0? 

0 


7? 

1, 

0. 

, 841 

8? 

2, 

0. 

, 909 

99 
♦ • 

3» 

0, 

, 141 

10? 

4 

‘ > ” 

-0.757 

i l? 

5 

i, - 

-0 . 959 


INTERPOLATE 


X= ? -2.47 
Y= -0.6218395827 


MORE POINTS HERE (1=YES, 0=N0>? 1 


INTERPOLATE: X= ? 1.5 

Y= 0.9971637861 


MORE POINTS HERE <1=YES, 0=N0>? 0 
ANOTHER CURVE (1=YES, 0=N0)? 0 


5 GRAPHICS O 

10 PRINT "CURVIL INEAR INTERPOLATION*’ 

20 PRINT 

28 REM - LIMIT X(> AND YO TO MAXIMUM NUMBER OF POINTS KNOWN ON ANY 

29 REM - CURVE TO BE ENTERED 

30 DIM X < 50)>Y(50) 

40 PRINT "NUMBER OF KNOWN POINTS"; 

50 INPUT P 
60 FOR 1=1 TO P 

69 REM - ENTER COORDINATES OF KNOWN POINTS ON CURVE 

70 PRINT "X,Y OF POINT ":I; 

80 INPUT X1,Y1 

82 X(I)=X 1 
84 Y ( I ) = YJ. 

90 NEXT I 
100 PRINT 

109 REM - ENTER X —COORDINATE OF POINT TO BE INTERPOLATED 

110 PRINT "INTERPOLATE: X= 

120 INPUT A 

130 B=0 

138 REM - COMPUTE CORRESPONDING Y-COORDINATES BY LAGRANGE METHOD OF 

139 REM - INTERPOLATION 

140 FOR J =1 TO P 
150 T=1 

160 FOR 1=1 TO P 

170 IF I=.J THEN 190 

180 T=T*<A~X<I> >/(X<J)-X(I)) 

190 NEXT I 
200 B=B+T*Y(d) 

210 NEXT J 

219 REM - PRINT RESULTS 

220 PRINT " Y= ";B 

230 PRINT 

239 REM - INTERPOLATE MORE POINTS ON SAME CURVE'”' 

240 PRINT "MORE POINTS HERE "; 

245 PRINT "< 1 =YES, 0=N0)"; 
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250 

INPUT 

C 


260 

IF C=1 

THEN 100 


269 

REM - 

RESTART OR END 

PROGRAM? 

270 

PR I NT 

"ANOTHER CURVE 

ft ■ 

7 

275 

PRINT 

"<1=YES, 0=N0)" 

m 

7 

280 

INPIJT 

C 


290 

IF C=1 

THEN 40 


300 

END 
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Integration: Simpson’s Rule 


This program approximates the definite integral of a function. The integral is computed using Simpson’s 
rule. 

The method the program takes is optional: you must supply either the function of the curve or values 
of the function at specified intervals. For both methods you must enter the limits of integration and the 
increment between points within the limits. 

If the function to be integrated is known, it must be entered before running the program. The 
function will be defined at line 350. For example, the function/6o> =x 3 will be entered as follows: 


Examples: 

Find the definite integral of the function/(x) = x 3 between 0 and 2 with increments of 0.2 and 0.1 
What is the integral of a curve between — 1 and 1 if the points known are as follows: 


(- 1 , 0 . 54 ) 

(- 0 . 75 , 0 . 73 ) 

(- 0 . 5 , 0 . 878 ) 

(- 0 . 25 , 0 . 969 ) 

( 0 , 1 ) 


( 0 . 25 , 0 . 969 ) 
( 0 . 5 , 0 . 878 ) 
( 0 . 75 ,. 073 ) 
( 1 , 0 . 54 ) 


INTEGRATION: SIMPSON'S RULE 

FORMULA:<1=KNOWN, 0=UNKNOWN)? 
THE LOWER, UPPER LIMITS? 0,2 
INCREMENT OF X? 0.2 
INTEGRAL IS 3 ■ »* ♦* •* ** 94 


5 GRAPHICS O 

10 PRINT "INTEGRATION: SIMPSON'S RULE" 

20 PRINT 

30 PRINT "FORMULA:<l=KNOWN, 0=UNKNOWN)"; 

40 INPUT S 

60 PRINT "THE LOWER, UPPER LIMITS"; 

70 INPUT A,B 

SO PRINT "INCREMENT OF X"; 

90 INPUT Xi 

98 REM - INCREMENT MUST DIVIDE INTERVAL INTO EQUAL SUBINTERVALS; 

99 REM - IF NOT, CHANGE INCREMENT 

100 IF (B-A)/X1<>INT((B~A)/X1) THEN 800 
110 IF S=1 THEN 150 

119 REM - FORMULA NOT KNOWN; ENTER FUNCTION VALUE AT INTEGRATION LIMITS 

120 PRINT "FIRST, LAST VALUE OF F(X>"; 

130 INPUT Y1,Y2 

140 GOTO 170 

149 REM - FORMULA KNOWN; CALCULATE F(X) AT INTEGRATION LIMITS 

150 X=A 

152 GOSUB 350 
154 Y1=F 



INTEGRATION: SIMPSON'S RULE 
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160 X=B 
162 GOSUB 350 
164 Y2=F 
170 C=0 
180 D=0 

189 REM - LOOP FOR EACH INTERVAL 

190 FOR 1=1 TO (B—A)/X1—0.5 
200 IF S=1 THEN 240 

209 REM -- ENTER KNOWN FUNCTION VALUE AT EACH 

210 PRINT "VALUE OF F(X> AT: " 

211 PRINT " INTERVAL " ? I ? 

212 PRINT " <X="?A+I*X1?")"! 

220 INPUT Y 

230 GOTO 250 

239 REM -- CALCULATE F(X) AT EACH SUB INTERVAL 

240 X=A+I*X1 
242 GOSUB 350 


INTERVAL 


244 Y=F 

249 REM - INTERVAL EVEN OR ODD? 

250 T2=I/2:R=INT(T2> 

255 IF T2=R THEN 280 

259 REM - SUM ALL ODD-INTERVAL FUNCTION VALUES 

260 C=C+Y 
270 GOTO 290 

279 REM - SUM ALL EVEN-INTERVAL FUNCTION VALUES 

280 D=D+Y 
290 NEXT I 

299 REM - COMPUTE INTEGRAL? PRINT 

300 PRINT "INTEGRAL IS "? 

310 PRINT X1/3* < Y1 + <C*4> +D*2+Y2) 

320 GOTO 999 

330 REM - DEFINE KNOWN FUNCTION 
340 REM - BELOW: "F='FUNCTION<X>'" 

350 F=X""3 
360 RETURN 
999 END 
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Integration: Trapezoidal Rule 


This program approximates the definite integral of a function. The integral is computed using the 

trapezoidal rule. You must provide the limits of integration and the number of intervals within the 
limits. 

The function to be integrated must be entered before running the program. The function of x will be 
defined at line 210. For example, the function/(x) = x 3 will be entered as follows: 

210 F=X , '"3 


Examples: 

Find the definite integral of the function/ (x) = x 3 between 0 and 2 with 10 and 20 intervals. 

Find the definite integral of the function/(x) — x ~ 2 between 1 and 2 and 2 and 3 using 10 
subintervals. 

INTEGRATION: TRAPEZOIDAL RULE 

(ENTER 0,0 TO END PROGRAM) 

LOWER, UPPER LIMITS? 0,2 
NUMBER OF INTERVALS? 10 
INTEGRAL = 4.03999994 

LOWER, UPPER LIMITS? 0,2 
NUMBER OF INTERVALS? 20 
INTEGRAL = 4.00999994 

LOWER, UPPER LIMITS? 0,0 
5 GRAPHICS 0 

10 PRINT "INTEGRATION: TRAPEZOIDAL RlltE" 

20 PRINT 

40 PRINT "(ENTER 0,0 TO END PROGRAM)" 

50 PRINT "LOWER, UPPER LIMITS"; 

60 INPUT A, B 

69 REM - END PROGRAM? 

70 IF A=B THEN 230 

30 PRINT "NUMBER OF INTERVALS"; 

90 INPUT N 
100 1=0 

109 REM - D IS THE SIZE OF EACH INTERVAL 

110 D=(B-A)/N 

119 REM - ADD UP THE AREA OF EACH TRAPEZOID 

120 FOR X=A TO B STEP D 
122 GOSUB 210 

130 I=I+F 

140 NEXT X 

141 REM - OBTAIN FUNCTION OF A 

142 X=A 

143 GOSUB 210 



INTEGRATION: TRAPEZOIDAL RULE 
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/ | / j ^ —p 

145 REM - OBTAIN FUNCTION OF B 

146 X=B 

147 GOSUB 210 

148 B=F 

149 REM - COMPUTE INTEGRAL, PRINT 

150 I=<I-<A+B)/2>*D 

160 PRINT "INTEGRAL. = "; I 
170 PRINT 

179 REM - RESTART PROGRAM 

180 GOTO 50 

190 REM - ENTER FUNCTION BELOW: 
200 REM - "F=■FUNCTION(X) " " 

210 F=X‘-3 
220 RETURN 
230 END 
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Integration: Gaussian Quadrature 


This program approximates the definite integral of a function. You must provide the limits of integration 
and the number of intervals within the limits. 

The interval of integration is divided into equal subintervals. The definite integral is computed over 

each subinterval using Gauss’ formula. The integrals of the subintervals are summed to give the definite 
integral of the full interval. 

You must enter the function to be integrated before running the program. The function of x will be 
defined at line 350. For example, the function/ (x) = x 3 will be entered as follows: 

350 F--Z"'3 


Examples: 


Find the definite integral of the function/ (x) = x 3 between 0 and 2 with 10 and 20 subintervals 

Find the definite integral of the function / (x) = x ~ 2 between 1 and 2 and 2 and 3 using 10 
subintervals. 


INTEGRATION: 


GAUS 


< * 


IAN 


QUADRATURE 


LOWER, UPPER LIMITS? 
NUMBER OF INTERVALS? 
INTEGRAL =3.99999993 


0 , 2 
10 


CHANGE DATA AND RECOMPUTE? 

(0=NO, 1=LIMITS, 2= I NTERVAL.S > 
NUMBER OF INTERVALS? 20 
INTEGRAL =3.99999993 


CHANGE DATA AND RECOMPUTE? 

(0=N0, 1 =L. IMI TS, 2= INTERVALS) ? 0 


5 GRAPHICS 0 

10 PRINT "INTEGRATION: GAUSSIAN QUADRATURE" 
20 PRINT 
30 REM - 

39 REM - 

40 DATA 
45 DATA 
50 DATA 
55 DATA 


ENTER FUNCTION IN LINE 350 

ABSCISSAS AND WEIGHT FACTORS FOR 20-POINT GUASSIAN 


076526521,.15275339,.22778585 

14917299.. 37370609, . 14209611 

510867.. 13168864..63605368 

11819453.. 74633191..10193012 
60 DAT A .83911697,.083276742,.91223443 
65 DATA .062672048,.96397193,.04060143 
70 DATA .9931286,.017614007 

80 PRINT "LOWER, UPPER LIMITS"; 

90 INPUT X,Y 

100 PRINT "NUMBER OF INTERVALS"; 

110 INPUT N 
120 S=(Y—X>/N/2 
130 T-X+S 


INTEGRATION 



INTEGRATION: GAUSSIAN QUADRATURE 
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140 R=0 

149 REM - COMPUTE INTEGRAL FOR EACH SUBINTERVAL 

150 FOR 1=1 TO N 
160 P=0 

169 REM - COMPUTE SUMMATION FACTOR FOR EACH SUBINTERVAL 

170 FOR J=1 TO 10 
180 READ A,B 

190 Z=S*A+T 
192 GOSUB 350 
194 Z1=F 

196 Z=T-S*A 

197 GOSUB 350 

198 P=P+B*(Z1+F) 

200 NEXT J 

210 RESTORE 
220 R=R+P*S 
230 T=T+2*S 
240 NEXT I 

250 PRINT "INTEGRAL ="?R 
260 PRINT 

270 PRINT "CHANGE DATA AND RECOMPUTE?" 

280 PRINT " (0=N0, 1 =LIMITS, 2= INTERVAL.S) " ? 

290 INPUT S 
300 IF S=1 THEN 80 
310 IF S=2 THEN 100 
320 GOTO 370 

330 REM - ENTER FUNCTION BELOW: 

340 REM - "F= x FUNCTION(Z) '" 

350 F=Z"'"3 
360 RETURN 
370 END 
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Derivative 



This program calculates the derivative of a given function at a given point. 

You must enter the function being evaluated before you run the program. The function will be 
entered in a statement at line 180. For example, to evaluate the equation/ (x) = x “ 2 + cos(x) you 
would enter the following: 


180 F=Z' S 2+C0S ( Z > 


Example: 

Calculate the derivative of the equation x 2 + cos (x) = 0 when x = -1, x = 0, and x = 1. 


DERIVATIVE 


(ENTER X=99999 TO END) 

DERIVATIVE AT X=? -1 

IS -1.15856168 
DERIVATIVE AT X=? 0 

IS -1.0239954E-05 
DERIVATIVE AT X=? 1 

IS 1.15852584 
DERIVATIVE AT X=? 99999 


5 GRAPHICS 0 
10 PRINT "DERIVATIVE" 

20 PRINT 

40 PRINT "(ENTER X=99999 TO END)" 

50 PRINT "DERIVATIVE AT X = "; 

60 INPUT XI 

69 REM - TEST FOR END OF PROGRAM 

70 IF X1=99999 THEN 200 
80 D=0 

89 REM - CALCULATE DIFFERENCE QUOTIENTS 

90 FOR N=1 TO 10 
100 D1=D 

110 X = X 1+0.5-'N 

111 REM - OBTAIN FUNCTION OF X 

112 Z=X 

113 GOSUB 180 

114 REM - STORE RESULT IN Z1 

115 Z1=F 

116 REM - OBTAIN FUNCTION OF XI 

117 Z=X1 

118 GOSUB 180 

119 Y=Z1-F 

120 D=Y/(X-X1 ) 

130 NEXT N 

138 REM - APPROXIMATE DERIVATIVE 



POINT 



APPROACHING 


X 




DERIVATIVE 
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139 REM - OF FUNCTION AT X, PRINT 

140 PRINT 11 IS ";2*D-D1 

149 REM - RESTART PROGRAM 

150 GOTO 50 

ISO REM - ENTER FUNCTION BELOW: 

170 REM -- " F= FUNCTI ON ( 7 .) " " 

ISO F=Z"'2+C0S( Z ) 

190 RETURN 
200 END 
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Roots of Quadratic Equations 



This program calculates the roots of a quadratic equation. The equation must be in the following form: 

ax 2 + bx + c ~ 0 

where a, b, c are real coefficients. 

The formula used to calculate the roots is: 


root 


-b ± \Jb 2 - 4 


a 


a 


Example: 


Compute the roots of the following equations: 


2x 2 + x - 1 = 0 
x 2 + 4x + 6 = 0 


ROOTS OF QUADRATIC EQUATIONS 

COEFFICIENTS A, B,C? 2,1,-1 
ROOTS (REAL.): 

-1,0.5 

MORE DATA (1=YES, 0=N0>? 1 

COEFFICIENTS A,B,C? 1,4,6 
ROOTS (COMPLEX): 

-2 +0R- 1.41421359 I 

MORE DATA (1=YES, 0=N0)? 0 

5 GRAPHICS 0 

10 PRINT "ROOTS OF QUADRATIC EQUATIONS" 
20 PRINT 

30 PRINT "COEFFICIENTS A,B,C"; 

40 INPUT A,B,C 
50 S=B'"-2-4«-A*C 
60 R=SQR(ABS(S)) 

70 IF SCO THEN 100 
SO PRINT "ROOTS (REAL): " 

82 PRINT (-B-R)/(2*A); 

35 PRINT ","?(~B+R)/(2*A) 

90 GOTO 110 

100 PRINT "ROOTS (COMPLEX): " 

102 PRINT -B/(2*A); 

105 PRINT “ +0R- ";R/(2*A>;" I" 

110 PRINT 

120 PRINT "MORE DATA (1=YES, 0=N0)"? 

130 INPUT X 

140 IF X=1 THEN 20 

150 END 
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Real Roots of Polynomials: Newton 


This program calculates real roots of a polynomial with real coefficients. You must give an estimate of 
each root. 

The calculations are performed using Newton’s method for approximating roots of equations. The 
value of the error and derivative are included for each root calculated. 

The equation you enter is presently limited to a degree of 10. You may enter a larger degree of 
equation by altering statements 30 and 40 of the program according to the following scheme: 

30 DIM A(7V+ 1) ,B<N + /) 

40 FOR 1 = 1 TO N+l 

where N - degree of equation. 


Example: 

Find the roots of 4x 4 — 2.5x 2 — x + 0.5. 


REAL ROOTS OF POLYNOMIALS: NEWTON 
DEGREE OF EQUATION? 4 


COEFFICIENT A(O)? 0.5 
COEFFICIENT A(1)? -1 
COEFFICIENT A<2>? -2.5 
COEFFICIENT A < 3)? 0 
COEFFICIENT A<4>? 4 
GUESS? —0.s 

ROOT = 0.3035763403 

ERROR = -IE-10 

DERIVATIVE = -2.07024701 

NEW VALUE <1=YES, O-NO)? 0 
NEW FUNCTION <1=YES, 0=N0>? 0 


5 GRAPHICS 0 

10 PRINT "REAL ROOTS OF POLYNOMIALS: 

11 REM - LIMIT AO AND BO TO N+l? 

12 REM - WHEN THIS IS DONE, LOOP AT 

13 REM - LINE 40 SHOULD BE SET TO 

14 REM - COUNT FROM 1 TO N+l 

15 DIM A(11),B(11) 

20 PRINT 

39 REM - INITIALIZE ARRAY VARIABLES 


40 FOR 1=1 TO 11 
50 A(I)=0 
60 B(I)=0 
70 NEXT I 

80 PRINT "DEGREE OF EQUATION"; 
90 INPUT N 
95 PRINT 


NEWTON" 
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100 FOR 1=1 TO N+l 

108 REM - ENTER COEFFICIENTS IN ORDER 

109 REM - OF LESSER TO HIGHER DEGREE 

110 PRINT "COEFFICIENT A<";I—1;")"; 
120 INPUT A1 

122 A <I)=A1 

130 NEXT I 

140 FOR 1=1 TO 10 

148 REM - CALCULATE COEFFICIENT OF 

149 REM - DERIVATIVE OF POLYNOMIAL 

150 &< I)=A<T+l)*I 
160 NEXT I 

170 PRINT 

179 REM - INITIALIZE GUESS 

180 PRINT "GUESS"; 

190 INPUT X 

200 Q=0 
210 S=1 
220 F1=0 
230 F0=0 

239 REM -- COUNT ITERATIONS 

240 Q=Q+1 

250 FOR 1=1 TO N+l 

259 REM - CALCULATE VALUE OF FUNCTION 

260 FO=FO+A(I)*S 

269 REM - CALC. VALUE OF DERIVATIVE 

270 F1=F1+B(I)#S 
280 S=S*X 

290 NEXT I 

298 REM - TEST FOR A ZERO DERIVATIVE; 

299 REM - IF YES, STOP SEARCH, PRINT 

300 IF F1=0 THEN 360 

308 REM - GET NEW GUESS USING 

309 REM - PREVIOUS GUESS 

310 S=X--FO/F 1 

318 REM - IF NEW GUESS EQUALS LAST 

319 REM -- GUESS, STOP SEARCH, PR INI- 

320 IF X=S THEN 380 


q y Q 

.L. / 

REM - 

SAVE LAST GUES 

1*"* 

•-jO#") 

*«.' •«.* V 

X=S 



340 

IF Q> 

100 THEN 490 


350 

GOTO 

210 


360 

PR I NT 

"DERIVATIVE = 

0 AT X = "; X 

370 

GOTO 

180 


380 

PRINT 



390 

PR I NT 

"ROOT = 

"; X 

395 

PR I NT 

"ERROR 

"; FO 

400 

PR I NT 

"DERIVATIVE = 

";F1 

410 

PRINT 



418 

REM - 

RERUN TO FIND 

ANOTHER ROOT 

419 

REM - 

IN SAME FUNCTION? 

420 

PR I NT 

"NEW VALUE (1= 

YES, 0=N0)"; 

430 

INPUT 

A 


440 

IF A= 

1 THEN 170 


449 

REM - 

RESTART OR END 

PROGRAM? 



REAL ROOTS OF POLYNOMIALS 
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450 PRINT "NEW FUNCTION <1=YES, 0=N0)"S 

460 INPUT A 

470 IF A=1 THEN 40 

480 GOTO 550 

487 REM - PRINT CALCULATED VALUES 

488 REM - AFTER 100 ITERATIONS; 

489 REM - SEARCH 100 MORE? 

490 PRINT "100 ITERATIONS COMPLETED:" 
500 PRINT "X = ";X 

504 PRINT "F(X > = ";FO 
506 PRINT 

510 PRINT "CONTINUE <1=YES, 0=N0)"; 

520 INPUT A 

530 IF A=1 THEN 200 

540 GOTO 420 

550 END 
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Roots of Polynomials: Half-Interval Search 



This program calculates roots of polynomials within a given interval. The program first conducts a 
random search within the given interval for two points with opposite signs. If a change of sign is found 

the root is calculated by the half-interval search method. If there is no change of sign found another 
interval will be asked for. 

Errors may result in this program for two reasons. First, a root may be calculated when it should not 
be. This may happen if the lowest point is so close to zero that a root is found due to a round-off error. 
Second, two roots may be so close together that the program never finds the opposite signs between 
them. The result in this case is that neither root is calculated. 

It is necessary to enter the equation before you run the program. The equation will be defined 
as a function of* at statement 450. For example, if you want to find roots of the function 
fix) = Ax 4 —2.5x 2 + 0.5, you will enter: 

450 F=4*Z ""4-2. 5*Z A 2-Z+0. 5 


Example: 

Find a root of the function fix) = 4x 4 -2.5x 2 + 0.5. 

ROOTS OF POLYNOMIALS: 

HALF-INTERVAL SEARCH 

(TO END SEARCH ENTER 0,0) 

INTERVAL (LOWER,UPPER > ? -1,0 
NO CHANGE OF SIGN FOUND 
INTERVAL. (LOWER, UPPER)? 0,1 
ROOT = 0.3035782241 


INTERVAL (LOWER,UPPER)? 0,0 


5 GRAPHICS 0 

10 PRINT "ROOTS OF POLYNOMIALS: *' 

15 PRINT "HALF-INTERVAL SEARCH" 

20 PRINT 
40 DIM D(3) 

50 PRINT "(TO END SEARCH ENTER 0,0)" 


cr 

r*t !i 


PRINT 


59 REM - ESTABLISH INTERVAL OF RANDOM SEARCH 

60 PRINT "INTERVAL (LOWER,UPPER)"; 

70 INPUT A,B 

79 REM - TEST FOR USABLE LIMITS ENTERED 

80 IF A OB THEN 120 

89 REM - END PROGRAM? 

90 IF A=0 THEN 470 

100 PRINT "—INTFRVAL LIMITS CANNOT BF EOUAL—"; 

110 GOTO 60 

120 IF ACB THEN 150 

130 PRINT "—LOWER LIMIT MUST BE ENTERED FIRST—" 



ROOTS OF POLYNOMIALS: HALF-INTERVAL SEARCH 
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140 GOTO 60 
150 Z=A 
152 GOSUB 450 
154 A1"SON(F) 

160 7=8 

162 GOSUB 450 

164 B1=SGN(F> 

168 REM - TEST FOR ROOT AT EITHER 

169 REM - LIMIT 

170 IF A1*B1“0 THEN 360 

178 REM - TEST FOR OPPOSITE SIGNS 

179 REM - AT INTERVAL. L IMITS 

180 IF AtsBICO THEN 280 

188 REM -• SEARCH 1000 NUMBERS FOR 

189 REM - OPPOSITE SIGNS IN FUNCTION 

190 FOR 1=1 TO 1000 
200 X=A+RND(2)* < B-A) 

202 Z = X 

204 GOSUB 450 
210 X1=SGN(F) 

218 REM - TEST FOR ROOT AT RANDOM 

219 REM - IF YES, END SEARCH, PRINT 

220 IF X1=0 THEN 400 
REM - TEST FOR OPPOSITE SIGNS AT 
REM - RANDOM NUMBER S< LOWER LIMIT 

!30 IF A1*X1<0 THEN 270 

REM - TRY ANOTHER RANDOM NUMBER 
NEXT I 

PRINT "NO CHANGE OF SIGN FOUND" 
260 GOTO 60 

268 REM - CHANGE OF SIGN FOUND 

269 

270 

- STORE POSITIVE POINT 

- IN D<1). Dili AND D(3> 

- BECOME INTERVAL LIMITS 


# '.J 

jt- k * 

v 

-i— *' 


* T. t 


240 

250 


m 

* 


27 


REM ~ 

B=X 

/ REM - 

278 REM - 

279 REM - 
80 D< 2+A1)=A 


CALCULATE ROOT 




290 D ( 2--A1 ) =B 

298 REM - CALCULATE MIDPOINT BETWEEN 

299 REM -- THE TWO LIMITS 

300 Y=<D(i)+D<3>>/2 
302 Z=Y 

304 GOSUB 450 
310 Y1=SGN(F) 

- TEST FOR ROOT AT MIDPOINT 
1=0 THEN 400 

-- GET A NEW LIMIT TO CLOSE 

- IN ON ROOT 
Y1 >=Y 

- TEST FOR A VALUE CLOSE 

- ENOUGH TO ZERO TO ASSUME 
— A ROUT« 

340 IF ABS(D(1)-D(3))/ABS(D(1)+ABS(D < 

349 REM - RETEST WITH NEW LIMITS 

350 GOTO 300 


319 

REM 

320 

IF 

328 

REM 

X V Q 

REM 

330 

D (2 

337 

REM 

338 

REM 

Pi 

oo y 

REM 


) ) )C5E-06 


THEN 400 
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SOME COMMON BASIC PROGRAMS - ATARI 


358 

359 

360 
370 
380 
390 
400 
410 

419 

420 
430 
440 
450 
460 
470 


REM - ROOT AT AN INTERVAL LIMIT; 
REM - FIND WHICH LIMIT, PRINT 
IF A1=0 THEN 390 
V=B 

GOTO 400 
Y=A 

PRINT "ROOT = ";Y 
PRINT 

REM - RESTART PROGRAM 
GOTO 60 

REM - ENTER FUNCTION BELOW: 

REM - "F='FUNCTION(Z Y" 

F=4*Z % -4-2. 5*Z'-2-Z+0. 5 

RETURN 

END 
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Trig Polynomial 


This program solves a trigonometric function for a given angle. The function must be in the following 
form: 

f(x) - A, sin(x) + B , cos(x) + A 2 sin(2x) + B 2 sin(2 ac) ... + A„ sin(n-x) + B n cos(n-x) 

where n - the number of pairs of coefficients. 

The coefficients of the function are to be entered in a data statement at line 30. The data statement will 
include the number of pairs of coefficients («) and the coefficients of the polynomial. It will be entered as 
follows: 

30 DATA ti, A ], Bp A 2 , B 2 , .... An* Bn 


Example: 

Solve the following equation when the angle equals 45°, 90°, and 105°: 

f(x) - sin(x) + 2 • cos (x) - 2 • sin (2 ac) + cos(2ac) + 5 • sin(3Ar) - 3 • cos(3ac)' 

TRIG POLYNOMIAL 
<ENTER ANGLE-9999? TO END) 

ANGLE? 45 
F < 45)=3.09559088 

ANGLE? 90 


ANGLE? 105 
F(105)=-1.54720278 

ANGLE? 99999 


5 GRAPHICS 0 

10 PRINT "TRIG POLYNOMIAL" 

20 PRINT 

27 REM - ENTER NUMBER OF PAIRS 

28 REM - OF TERMS AND COEFFICIENTS 

29 REM - WITH DATA STATEMENT 

30 PRINT "ENTER NUMBER OF PAIRS OF TERMS AND COEFFICIENTS' AT LINE 
40 PRINT "(ENTER ANGLE-79999 TO END)" 

45 PRINT 

50 PRINT "ANGLE"! 

60 INPUT R 

69 REM - END PROGRAM? 

70 IF R-99999 THEN 180 

78 REM - GET NUMBER OF PAIRS OF 

79 REM - TERMS IN POLYNOMIAL 

80 READ N 
85 7=0 


30 ! " 
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89 REM - READ VALUES OF COEFFICIENTS 

90 FOR 1=1 TO N 
100 READ A,B 

108 REM ~ CALCULATE VALUE OF 

109 REM - FUNCTION AT ANGLE X 

110 Z-Z+A*SIN(I*R)+B*cns ( I*R) 

120 NEXT I 

129 REM - PRINT RESULTS 

130 PRINT "F("> R*") = ";Z 

138 REM - PREPARE TO REREAD 

139 REM - FUNCTION COEFFICIENTS 

140 RESTORE 
150 PRINT 

169 REM -- RESTART PROGRAM 

170 GOTO 50 
ISO END 
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Simultaneous Equations 


This program solves a system of linear equations. The number of unknown coefficients in each equation 
must equal the number of equations being solved. You must enter the coefficients of each equation. 

The dimension statement at line 30 limits the number of equations which may be solved. You may 
change this limit according to the following scheme: 

30 DIM A i R, R + 1 ) 

where R = the maximum number of equations. 


Example: 

Solve the following system of equations: 

x + 2x + 3x = 4 
3x + 6x = 1 
-3x + 4x - 2x = 0 

SIMULTANEGUS EQIJATIONS 

NUMBER OF EQUATIONS? 3 
COEFFICIENT MATRIX: 

EQUATION 1 

COEFFICIENT 1? 1 
COEFFICIENT 2? 2 
COEFFICIENT 3? 3 
CONSTANT? 4 

EQUATION 2 

COEFFICIENT 1? 3 
COEFFICIENT 2? 6 
COEFFICIENT 3? 0 
CONSTANT? 1 

EQUATION 3 

COEFFICIENT 1? -3 
COEFFICIENT 2? 4 
COEFFICIENT 3? -2 
CONSTANT? 0 

XI 
X2 
X3 

5 GRAPHICS O 

10 PRINT "SIMULTANEOUS EQUATIONS" 

20 PRINT 
30 DIM At 15,15) 

40 PRINT "NUMBER OF EQUATIONS"; 


= -0.356 
= 0.344 

—• 1 O V 

X a i t,,, » i i n 4*■ ■ 
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50 INPUT R 

60 PRINT "COEFFICIENT MATE1X:" 
70 FOR ...1-1 TO R 
80 PRINT 

85 PRINT "EQUATION 
90 FOR 1=1 TO R+l 
100 IF I=R+1 THEN 130 

1.1.0 PRINT " COEFFICIENT ";I; 
120 GOTO 140 

130 PRINT "CONSTANT"? 

140 INPUT A1 
142 A(J»I)=A1 
150 NEXT I 


160 NEXT d 

170 FOR J=1 TO R 

180 FOR I=.J TO R 

190 IF A(I,J)<>0 THEN 
200 NEXT I 


o o 

j— 


0 


210 PRINT "NO UNIQUE SOLUTION" 

220 GOTO 440 

230 FOR K=1 TO R+l 

240 X=A < d > K ) 

250 A(d,K)=A<I,K> 

260 A ( I, K) = X 
270 NEXT K 


280 Y=1/A(J,J) 

290 FOR K=1 TO R+l 
300 A ( d, K) =Y-H-A (d, K ) 

310 NEXT K 
320 FOR 1=1 TO R 
330 IF I=d THEN 380 
340 Y=-A(I,d) 

350 FOR K=1 TO R+l 

360 A(I,K> =A<I,K)+Y*A(d,K) 

370 NEXT K 

380 NEXT I 


390 NEXT d 

400 PRINT 

410 FOR 1=1 TO R 

420 PRINT "X";l;" 

430 NEXT I 

440 END 


" *INT(A <I,R+l)*1000+0. 


))/1000 
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Linear Programming 


Courtesy: Harold Hanes 
Earlham College 
Richmond, Indiana 


This program uses the simplex method to solve a linear programming problem. You must provide the 
coefficients of the objective function and the coefficients, relation, and constant of each constraint. This 
information is entered in DATA statements before you run the program. 

After you load the program, enter the DATA statements according to the following instructions. If 
you run more than one problem, remember to clear out all DATA statements from the previous 
problem before running the new problem. Our DATA statements occur at lines 30 through 35. 

1. Arrange your problem constraints according to their relation, so that the “less than” inequalities 
precede the equalities, which in turn precede the “greater than” inequalities. 

2. Type in as DATA the coefficients of the constraints, in the order the constraints were arranged 
in step 1. Do not include coefficients for slack, surplus, or artificial variables. Do include a ‘O’ 
coefficient for any variable that doesn’t appear in a particular constraint. 

3. Type in as DATA the constants of the constraints (right-hand sides of the constraints) in the 
same order as you entered the rows of coefficients. These values cannot be negative. 

4. Type in as DATA the coefficients of the objective function. 

You must select whether the problem solution is to be a minimum or maximum value. The program 
also asks you to enter the total number of constraints and the number of variables to allow for each, and 
the number of “less than,” “equal,” and “greater than” constraints you are considering. 

The dimension statement at line 180 limits the number of variables and constraints you may enter. 
You can change these limits according to the following scheme: 

ISO DIM A(C + 2, F+C+G+/),B(C + 2) 

where: C = number of constraints 
V = number of variables 
G - number of “greater than” constraints 


Example: 


A manufacturer wishes to produce 100 pounds of an alloy which is 83% lead, 14% iron, and 3% 
antimony. He has five available alloys with the following compositions and prices: 


Alloy 1 

Alloy 2 

Alloy 3 

Alloy 4 

Alloy 5 

90 

80 

95 

70 

30 

5 

5 

2 

30 

70 

5 

15 

3 

0 

0 

$6.13 

$7.12 

$5.85 

$4.57 

$3.96 


How should he combine these alloys to get the desired product at minimum cost? 
Note that this problem results in the following system of equations: 


x, + X 2 + X, + x 4 + x 5 

0.90*, + 0.80*2 + 0.95*3 + 0.70* 4 + 0.30* 5 

0.05*, + 0.05*2 + 0.02*3 + 0.30*4 + 0.70* 5 

0.05*, + 0.15*2 + 0.03*3 

6.13*| + 7.12*2 + 5.85*3 + 4.57* 4 + 3.96* 5 


100 

83 

14 

3 

Z (min) 
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LINEAR PROGRAMMING - SIMPLEX METHOD 

1 MAXIMIZES -1 MINIMIZES? -1 

# OF CONSTRAINTS,# OF VARIABLES 
? 4,5 

# OF <,=,> CONSTRAINTS? 0,4,0 


YOUR VARIABLES 1 THROUGH 5 
ARTIFICIAL VARIABLES 6 THROUGH 9 

ANSWERS: 

PRIMAL VARIABLES: 

VARIABLES VALUE 

2 10.43478262 

3 47.82608693 

4 41.73913042 
VALUE OF OBJECTIVE 
FUNCTION =544.826087 


5 GRAPHICS 0 

20 REM - *** DO THE FOLLOWING STEPS BEFORE RUNNING THE PROGRAM *** 

TYPE IN COEFFICIENTS OF 'C',CONSTRAINTS IN DATA STATE 


21 REM 
MENTS? 

REM 
STRAIMl 

23 REM 

24 REM 
LOWING 

25 REM 
DATA 

26 REM 


STARTING AT LINE 30, A SEPARATE DATA STATEMENT FOR EACH CON 
(LINES 30-33 IN OUR EXAMPLE) 

TYPE IN LUNSTANTS OF THE CONSTRAINTS IN A DATA STATEMENT FOL 
THE CUEFF IClENI DATA, AND IN THE SAME ORDER AS: THE CONSTRAINT 


WERE ENTERED (LINE 34 IN OUR EXAMPLE) 

~ L'UEFF ICIENTS OF THE OBJECTIVE FUNCTION IN A DATA STATE 

nb-NT 

(LINE 35 IN OUR EXAMPLE) FOLLOWING THE CONSTANTS DATA 


28 

REM - 

- (LINE 35 

30 

DATA 

l 7 1 ? 1 7 1 ? i 

31 

DATA 

o o o 

m y 7 a O •» u 7 

32 

DATA 

.05,.05,„0 


DATA 

.05,.15,.0 

34 

DATA 

100,83,14, 

“.e 

DATA 

6.13,7.12, 


100 GRAPHICS 0 

170 PRINT "LINEAR PROGRAMMING -- "; 

175 PRINT "SIMPLEX METHOD" 

180 DIM A(6,10),B(6) 

200 PRINT 

210 PRINT "1 MAXIMIZES -1 MINIMIZES"; 
220 INPUT Z 
230 Z=~Z 

240 PRINT "# OF CONSTRAINTS,# OF "; 
245 PRINT "VARIABLES"; 

250 INPUT M,N 

260 PRINT "# OF <,=,> CONSTRAINTS"; 

270 INPUT L,E>G 

280 IF M=L.+E+G THEN 320 

290 PRINT "INCONSISTENT DATA - "; 



LINEAR PROGRAMMING 


109 


•~» o cr 


PRINT "TRY AGAIN*' 


300 GOTO 260 
31? REM - TH 


320 

330 

340 

350 

360 

380 

•:-vn 

400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
492 
500 
510 
520 
530 
540 
550 
560 
570 
580 


590 


REM - THIS IS THE INITIALIZATION ROUTINE 

C=N+M+G 

C1=0+1 

C2=N+l.+G 

M .1 =M+1 

M2=M+2 

PR I NT 

FOR 1=1 TO M2 
FOR J=1 TO Cl 
A«I,J)=0 
NEXT J 
NEXT I 

FOR 1=1 TO M 
B(I)=0 
NEXT I 

FOR 1=1 TO M 
FOR J=1 TO N 
READ Al. 

A(I)J)=A1 

IF IOL THEN 520 

A (M1, .J ) =A < M1, J) -A ( I, J) 

NEXT ,.! 

IF I>L THEN 570 

B(I ) =N+1 

A(I,N+I)=1 

GOTO 630 

B(I)=N+G+I 

A(I,N+G+I)=1 

IF I>L+E THEN 610 


600 GOTO 630 


610 
620 
630 
640 
650 
652 


ri ^ 

670 
6.80 
6F: 2 
690 
700 
710 

730 

731 
740 

750 

751 
760 

770 

771 
780 


Ad,N+I-E)=--l 
A(Ml,N+I-E>=1 
NEXT I 

FOR 1=1 TO M 
READ Al 
A <I,Cl>=A1 
NEXT I 

FOR J=1 TO N 
READ Al 
A(M2,J)=A1 
A(M2 7 J> = 7 £ A(M2» J) 

NEXT J 
PR I NT 

PRINT "YOUR VARIABLES "? 
PRINT "1 THROUGH ";N 
IF L=0 THEN 760 
PRINT "SLACK VARIABLES "; 
PRINT N+l; " THROUGH " ? N+L. 

IF 0*0 THEN 780 

PRINT "SURPLUS VARIABLES 

PRINT N+-L+1?" THROUGH " ? C2 

IF L.=M THEN 970 

PRINT “ARTIFICIAL VARIABLES 
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791 

PR I NT 

C2+1; " 

800 

M3=M 1 


810 

GOSUB 

1240 


PRINT 


830 

FOR 11 

= 1 TO M 

840 

IF BUI) <=C2 

850 

IF A(11,cn <= 

860 

PRINT 

"NO FEA 

870 

GOTO 1 

700 

880 

FOR J1 

U 

tt 

f-*- 

H 

O 

O 

890 

IF ABS 

(A(I1, J 

900 

R=I 1 


910 

■“i ■_! 1 


920 

GOSUB 

1490 

o r-t 

J1 =C2 


940 

NEXT ...11 

950 

NEXT 11 

970 

PRINT 


980 

M3=M2 


990 

GOSUB 

1240 


O m II 

.1 N 


1020 PRINT 
1030 PRINT "ANSWERS 
1040 PRINT "PRIMAL VARIABLES:" 
1050 PRINT "VARIABLES" , "VALUE" 
1060 FOR J=1 TO C2 
1070 FOR 1=1 TO M 
1080 IF B< I )OJ THEN 1J 1 O 
1090 PRINT J, A ( I, C1 > 

1100 I=M 


1110 NEXT I 

1120 NEXT J 

1130 IF L=0 THEN 1190 

1140 PRINT "DUAL VARIABLES:" 

1150 PRINT "VARIABLE","VALUE" 

1160 FOR 1=1 TO L 

1170 PRINT 1 7 -Z*A<M2,N+I) 

1180 NEXT I 

1190 PRINT "VALUE OF OBJECTIVE" 

1191 PRINT "FUNCTION ="?-Z*A(M2,01> 
1200 PRINT 

1210 PRINT 
1220 PRINT 
1230 GOTO 1700 

1240 REM - OPTIMIZATION ROUTINE 

1241 REM - FIRST PRICE OUT COLUMNS 
1260 P=-1.0E-05 

1270 FOR J=1 TO C2 

1280 IF A(M3,J)>=P THEN 1310 

1290 S=J 

1300 P=A(M3,J) 

1310 NEXT J 

1320 IF P=--1.0E-05 THEN 1680 
1330 GOSUB 1350 
1340 GOSUB 1440 
1345 GOTO 1260 



LINEAR PROGRAMMING 
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1350 REM 


NOW FIND WHICH VARIABLE LEAVE BASIS 


1360 Q=1E+3S 
1370 FOR 1=1 TO M 

1380 IF A( 11 SK=1.0E-05 THEN 1420 
1390 IF A(I,C1)/A(I,S)>=Q THEN 1420 
1400 R=I 

1410 Q=A(I»C1)/A<I»S) 

1420 NEXT I 
1430 RETURN 

1440 IF Q=1E+38 THEN 1470 
1450 G03UB 1490 
1460 RETURN 

1470 PRINT "THE SOLUTION IS UNBOUNDED" 

1480 GOTO 1700 

1490 REM - PERFORM PIVOTING 

1500 P=A(RiS) 

1510 FOR 1=1 TO M2 

1520 IF I=R THEN 1590 

1530 FOR ...1=1 TO Cl 

1540 IF J=S THEN 1580 

1550 A ( 1 7 J) =A ( 1 7 J)~A< I,S)*A<R,d>/P 

1560 IF ABS (A ( 1 7 .J ) ) >= 1 . 0E--05 THEN 1580 


1570 A(1 7 J)=0 

1580 NEXT J 

1590 NEXT I 

1600 FOR .1=1 TO Cl 

1610 A(R, ,J)=A(R, J)/P 

1620 NEXT J 

1630 FOR 1=1 TO M2 

1640 A <1 7 S)=0 

1650 NEXT I 

1660 A < R 7 S) = 1 

1670 B<R)=S 

1680 RETURN 

1700 END 
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Matrix Addition, Subtraction, Scalar Multiplication 


This program adds or subtracts two matrices, or multiplies a matrix by a given scalar. You must input the 

value of each element of each matrix. To perform addition or subtraction the dimensions of the two 
matrices must be equal. 

The dimension of the matrices may be increased or decreased depending on the amount of memory 
available in your system. Statement 30 may be changed to: 

30 DIM A (A', Y) , B(Y. Y) 

where ( X, Y) is your limit on the dimension of the matrices. 


Example: 

Find the sum of the following matrices, then multiply the resultant matrix by 3. 



MATRIX ADDITION, SUBTRACTION, 
SCALAR MULTIPLICATION 

1=ADDITT ON 

2-SUBTRACTION 

3=SCALAR MULT I PL. I CAT I ON 

WHICH OPERATION? 1 

DIMENSION OF MATRIX <R,C>? S,S 

MATRIX 1: 

ROW 1 

VALUE COLUMN 1? i 
VALUE COLUMN 2? 0 
VALUE COLUMN 3? ~i 
ROW 2 

VALUE COLUMN 1? 5 
VALUE COLUMN 2? 8 
VALUE COLUMN 3? 0.5 
ROW 3 

VALUE COLUMN 1? -1 
VALUE COLUMN 2? 2 
VALUE COLUMN 3? 0 
MATRIX 2: 

ROW 1 

VALUE COLUMN 1? -5 
VALUE COLUMN 2? -1 
VALUE COLUMN 3? 2 
ROW 2 

VALUE COLUMN 1? 6 





MATRIX ADDITION, SUBTRACTION, SCALAR MULTIPLICATION 
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VALUE COLUMN 2? -O. 1 
VALUE COLUMN 3? 0 
ROW 3 


VALUE COLUMN 1 ? 3 
VALUE COLUMN 2? 4 
VALUE COLUMN 3? -2 
-4 -I 1 
11 7.9 0.5 


MORE DATA? <1=YES, 0=N0)? 1 

1=ADDITION 

2-SUBTRACTION 

3=SCALAR MULT XPLICATION 


WHICH OPERATION? 3 
VALUE OF SCALAR? 3 
DIMENSION OF MATRIX 
MATRIX is 
ROW 1 

VALUE COLUMN 
VALUE COLUMN 
VALUE COLUMN 
ROW 2 

VALUE COLUMN 
VALUE COLUMN 
VALUE COLUMN 
ROW 3 

VALUE COLUMN 
VALUE COLUMN 
VALUE COLUMN 

-12 -3 3 

OO •“>*-» “7 1 cr 

2 .. V.' « / X * «_* 

A t M —A 


l? 


• i • i 

• • 

*•» » 


l? 

* 


♦ I I* I 


1 




3? 


4 

1 

1 

11 

7.9 


v. 


2 


2 


(R 7 C ) ? 


o o 

.*1 7 


MORE DATA 



(1=YES, 0=N0)? 0 


cr 

D 


GRAPH I ( 



O 


20 PRINT 

21 PRINT 

22 PRINT 
25 PRINT 
29 REM - 


"MATRIX ADDITION, “? 
"SUBTRACTION," 

" SCALAR MULTIPLICATION" 


ARRAYS SHOULD BE SET TO DIMENSONS OF MATRICES 


30 DIM A(3,3),B<3,3> 

40 PRINT "1=ADDITION" 

50 PRINT "2-SUBTRACTION" 

60 PRINT "3=SCALAR MULTIPLICATION" 

65 PRINT 

69 REM - SELECT OPERATION BY ENTERING THE OPERATION NUMBER (1 

70 PRINT "WHICH OPERATION"; 

SO INPUT D 


89 REM -- TEST FOR ADDITION OR SUBTRACTION 

90 IF DOS THEN 120 

100 PRINT "VALUE OF SCALAR"; 


110 INPUT S 
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120 
130 

138 

139 

140 
150 
160 
170 
180 
190 
200 
210 
«lr«> 4 m* m* 

230 

240 

242 

250 

260 

262 

270 

*~>0 fl 

289 

290 
300 

308 

309 

310 
320 
330 
340 
350 
360 
370 
380 
390 

399 

400 
410 
420 

429 

430 
440 


PRINT "DIMENSION OF MATRIX (R, f:) " ; 

INPUT R,C 

REM - LOOP TO ENTER MATRIX VALUES 

REM - FOR SUBTRACTION, MATRIX 2 SUBTRACTED FROM MATRIX 1 
FOR K=1 TO 2 

IF K=2 THEN 130 
PRINT "MATRIX 1:" 

GOTO 190 

PRINT "MATRIX 2:" 

FOR J=1 TO R 

PRINT "ROW "JJ 

FOR 1=1 TO C 

PRINT "VALUE COLUMN "; I; 

IF K=2 THEN 260 
INPUT A1 
A(. J,I)=A1 
GOTO 270 
INPUT B1 
B(• J,I)=B1 
NEXT I 
NEXT J 

REM - ONLY ONE MATRIX USED FOR SCALAR MULTIPLICATION 
IF D=3 THEN 310 

NEXT K 

REM - STATEMENTS 310 TO 410 PERFORM REQUESTED OPERATION AND PRINT 

REM - RESULTANT MATRIX 

FOR .J=l TO R 

FOR 1=1 TO C 

IF D<>2 THEN 350 

B(.J, I >=~B(.J, I) 

IF D=3 THEN 380 

PRINT A<J,I)+B(J,I);" "; 

GOTO 390 

PRINT A<J,I>*S5" "; 

NEXT I 

REM - ADVANCE OUTPUT DEVICE TO PRINT NEXT ROW 

PRINT 

NEXT J 

PRINT 

REM -- RESTART OR END PROGRAM? USER INPUT REQUIRED 
PRINT "MORE DATA? <1=YES, 0=N0>"; 

INPUT D 


450 IF D=1 THEN 40 
460 END 
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Matrix Multiplication 


This program multiplies two matrices. The first matrix is multiplied by the second. You must input the 
elements of each matrix. 

The dimensions of the matrices are presently limited to 20 x 20. This limit may be increased or 
decreased by altering line 10 according to the following scheme: 

10 DIM A ix, y>, B(Z, X) 

where: (A". T) = dimension of matrix I 
( Z,X ) = dimension of matrix 2 


Example: 

Multiply matrix 1 by matrix 2. 



1 

2 

0 


2 

-1 

-2 


MATRIX MULTIPLICATION 

MATRIX 1 DIMENSION <R,C>? 3,5 
MATRIX 2 DIMENSION <R,C>? 5,3 
MATRIX is 
ROW 1 


VALUE 

COLUMN 

1 ? 

2 

VALUE 

COLUMN 

2? 

-1 

VALUE 

COLUMN 

“* f 

4 

VALUE 

COLUMN 

4? 

1 

VALUE 

COLUMN 

5? 

2 

ROW 2 
VALUE 

COLUMN 

1 ? 

1 

VALUE 

COLUMN 

29 

0 

VALUE 

COLUMN 

3? 

1 

VALUE 

COLUMN 

4? 

2 

VALUE 

COLUMN 

5? 

-1 

ROW 3 
VALUE 

COLUMN 

1 ? 


VALUE 

COLUMN 


3 

VALUE 

COLUMN 

3? 


VALUE 

COLUMN 

4? 

0 

VALUE 

COLUMN 

5? 

-2 
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MATRIX 

“• ■ 

■ 



ROW 1 
VALUE 

COLUMN 

1 ? 

-2 

VALUE 

COLUMN 

oo 

t 

-1 

VALUE 

COLUMN 

3? 

2 

ROW 2 
VALUE 

COLUMN 

1 ? 

0 

VALUE 

COLUMN 

2 ? 

2 

VALUE 

COLUMN 


1 

ROW 3 
VALUE 

COLUMN 

i ? 

-1 

VALUE 

COLUMN 


1 

VALUE 

COLUMN 

3? 

4 

ROW 4 
VALUE 

COLUMN 

1 ? 

3 

VALUE 

COLUMN 


0 

VALUE 

COLUMN 

•***| •“*! 
O :* 

-1 

ROW 5 
VALUE 

COLUMN 

l ? 

2 

VALUE 

COLUMN 

2 ? 

1 

VALUE 

COLUMN 

•**| 

O : 

2 


1 -1 2 
-7 1 -1 


5 GRAPHICS 0 

9 REM - ARRAYS A AND B SHOULD BE 

10 DIM AC 20,20),B(20,20) 

20 PRINT "MATRIX MULTIPLICATION" 
30 PRINT 


SET TO DIMENSIONS OF 


40 PRINT "MATRIX 1 DIMENSION <R,C>"; 

50 INPUT R1,C1 

60 PRINT "MATRIX 2 DIMENSION <R,C>"; 

70 INPUT R2 i C2 

79 REM - # OF COLUMNS IN MATRIX 1 MUST EQUAL # OF ROWS 
SO IF C1=R2 THEN 110 

90 PRINT "CANNOT BE MULTIPLIED" 

100 GOTO 40 

109 REM - ENTER MATRIX VALUES 

110 PRINT "MATRIX 1 :" 

120 FOR J=1 TO Ri 

130 PRINT "ROW ";J 

140 FOR 1=1 TO Cl 

150 PRINT "VALUE COLUMN ";I; 

160 INPUT X 
162 A(J tI) = X 
170 NEXT I 
ISO NEXT J 
190 PRINT 

200 PRINT "MATRIX 2:" 

210 FOR J=1 TO R2 

220 PRINT "ROW ";j 

230 FOR 1=1 TO C2 

240 PRINT "VALUE COLUMN "; I; 


MATRICES 


IN MATRIX 


O 

jL. 



MATRIX MULTIPLICATION 


250 

INPUT 

X 

er •-> 

X- X.. 

B( J, I > 

= X 

260 

NEXT I 


270 

NEXT .. 


280 

PRINT 


289 

REM - 

PERFORM 

290 

FOR I-- 

= 1 TO R1 

300 

FOR J= 

= 1 TO C2 

310 

S--0 


O 

jL. y * 

FOR K= 

= 1 TO Cl 

330 

S=S+A(I , K)(I 

340 

NEXT h 


350 

PRINT 

*-• • St II m 

•} 7 

360 

NEXT .. 

.! 

369 

REM - 

ADVANCE 

370 

PRINT 


380 

NEXT ] 



MATRIX 
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Matrix Inversion 


This program inverts a square matrix. The inversion is performed by a modified Gauss-Jordan 
elimination method. 

The dimensions of the matrices are presently limited to 20 x 20. This limit may be increased or 
decreased by altering line 30 according to the following scheme: 

30 DIM A iR.R), m R,R) 

where R = number of rows (or columns) in the matrix. 

Example: 

Invert matrix A. 

3 5 -1 4 

1 4 -0.7 -3 

0 - 20 ! 

-2 6 0 0.3 

MATRIX INVERSION 



MATRIX DIMENSION? 4 
MATRIX ELEMENTS: 

ROW 1 


VALUE 

COLUMN 

1? 




VALUE 

COLUMN 

2? 

5 



VALUE 

COLUMN 

O “ 

v * 

-1 



VALUE 

COLUMN 

4? 

••-4 



ROW 2 






VALUE 

COLUMN 

1? 

1 



VALUE 

COLUMN 

t 

4 



VALUE 

COLUMN 

3? 

-0. 

7 


VALUE 

COLUMN 

4? 

-3 



ROW 3 






VALUE 

COLUMN 

1? 

0 



VALUE 

COLUMN 


-2 



VALUE 

COLUMN 

•—« -~*i 
• 2 « 

0 



VALUE 

COLUMN 

4? 

1 



ROW 4 






VALUE 

COLUMN 

1? 

— z* 



VALUE 

COLUMN 

2? 

6 



VALUE 

COLUMN 

•-.* : 

o 



VALUE 

COLUMN 

4? 

0. 3 



0.654 

~0. 935 

M* 

-0. 1 

91 

0.014 

0. 198 

-0.283 

- 

-0. 1 

03 

0. 156 

0. 368 

-1.955 


-4.2 

63 

-0. 42 

0.397 

-0.567 

c 

>. 79 

3 

0.312 


5 GRAPHICS O 

10 PRINT "MATRIX INVERSION" 

20 PRINT 

29 REM - A <) AND B() SHOULD BOTH BE 

30 DIM A(20,20>,B<20,20> 


SET TO THE DIMENSIONS OF THE MATRIX 




MATRIX INVERSION 
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39 REM - MATRIX IS SQUARE SO ONLY ONE DIMENSION IS 

40 PRINT "MATRIX DIMENSION"; 

50 INPUT R 

60 PRINT "MATRIX ELEMENTS:" 

69 REM - ENTER MATRIX ELEMENTS 

70 FOR J=1 TO R 
30 PRINT "ROW "? J 
90 FOR 1=1 TO R 

100 PRINT "VALUE COLUMN "sI; 

110 INPUT A1 
112 A(.J, I ) = A1 
114 B<J,I)=0 
120 NEXT I 
130 B(d,.J) = l 
140 NEXT J 

149 REM - STATEMENTS 150 TO 420 INVERT MATRIX 

150 FOR J=1 TO R 
160 FOR I=.J TO R 

170 IF Ad.JlOO THEN 210 
ISO NEXT I 

190 PRINT "SINGULAR MATRIX" 

200 GOTO 500 
210 FOR K=1 TO R 
220 S=A(JiK) 

230 A(J 7 K)=A(I, K) 

240 A(I,K)=S 
250 S=B(J,K) 

260 B < J,K)=B(1 7 K> 

270 B(I,K)=S 
280 NEXT K 
290 T=1/A(J,J) 

300 FOR K=1 TO R 
310 A(J,K)=T*A(J 7 K) 

320 B(J,K)=T*B<J.K) 

330 NEXT K 
340 FOR L=1 TO R 
350 IF L=J THEN 410 
360 T=-1*A<L,.J> 

370 FOR K=1 TO R 

330 A(L 7 K)=A(L,K)+T*A < J,K) 

390 B < L,K)=B(L,K > +T*B(J,K) 

400 NEXT K 
410 NEXT L 
420 NEXT J 
430 PRINT 

439 REM - PRINT RESULTANT MATRIX 

440 FOR 1=1 TO R 
450 FOR J=1 TO R 

459 REM - ROUND OFF, PRINT 

460 PRINT I NT ( B ( I, J) * 1000+0. 5) /1000", 

461 PRINT " "; 

470 NEXT J 

479 REM - ADVANCE OUTPUT DEVICE TO PRINT NEXT LINE 

480 PRINT 
490 NEXT I 
500 END 


NEEDED 
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Permutations and Combinations 


This program computes the number of permutations and combinations of N objects taken D at a time. 


Examples: 

How many permutations and combinations can be made of the 26 letters of the alphabet, taking 5 at a 
time? 

How many different ways can 12 people sit on a bench if there is only room for 2 at a time? 
PERMUTATIONS ?< COMBINATIONS 


<ENTER 0 TO END PROGRAM) 
TOTAL NUMBER OF OBJECTS? 26 
SIZE OF SUBGROUP? 5 
7893600 PERMUTATIONS 
65780 COMBINATIONS 


TOTAL NUMBER OF OBJECTS? 
SIZE OF SUBGROUP? 2 
132 PERMUTATIONS 
66 COMBINATIONS 


12 


TOTAL NUMBER OF OBJECTS? 0 
10 GRAPHICS O 

20 PRINT "PERMUTATIONS & COMBINATIONS" 

25 PRINT 

30 PRINT "(ENTER 0 TO END PROGRAM)" 

40 PRINT "TOTAL. NUMBER OF OBJECTS"; 

50 INPUT N 

59 REM - TEST FOR END OF PROGRAM 

60 IF N=0 THEN 280 

70 PRINT "SIZE OF SUBGROUP"; 

80 INPUT D 

89 REM - SIZE OF SUBGROUP CANNOT BE LARGER THAN SIZE OF GROUP 

90 IF DON THEN 130 

100 PRINT "SUBGROUP TOO LARGE" 

110 PRINT 
120 GOTO 40 

.129 REM -• LINES 130 TO 200 COMPUTE PERMUTATIONS 
130 F-l 
140 C=i 

150 FOR I=N-D+1 TO N 

159 REM - DON'T ALLOW NUMBER SIZE TO OVERFLOW MACHINE CAPACITY 

160 IF 1.7E+97/I>=P THEN 190 

170 PRINT "> 1.7E97 PERMUTATIONS" 

180 GOTO 280 

190 P=P*I _ 

200 NEXT I 



PERMUTATIONS AND COMBINATIONS 


209 REM - COMPUTE INTERMEDIATE FACTORIAL 

210 FOR J-2 TO D 
220 C=C*J 

230 NEXT J 

240 PRINT P;" PERMUTATIONS" 

250 PRINT P/C;" COMBINATIONS" 

260 PRINT 

269 REM - RESTART PROGRAM 

270 GOTO 40 


FOR COMBINATION 
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Mann-Whitney U Test 


This program performs the Mann-Whitney U test on samples from two populations. 

The dimension statement at line 30 limits the size of the samples. You can increase or decrease the 
dimension limits according to the following scheme: 

30 DIM X < M ),Y< N ) 

where: M - maximum size of first sample 

N = maximum size of second sample 


Example: 

A group of ten women and a group of ten men were asked to rate the flavor of a frozen T.V. dinner on a 
scale of one to ten. The table below lists the scores. Count the number of times the women’s scores are 
lower than the men’s, and vice versa. 


Women 

1 

3 

4 

3 

6 

8 

9 

7 

8 

4 

Men 

7 

9 

8 

5 

10 

9 

10 

6 

5 

2 


MANN-WHITNEY IJ-TEST 


SAMPLE 

1 : 


SIZE? 

to 


DATA 

1 ? 

1 

DATA 

2 ? 

3 

DATA 

3? 

4 

DATA 

4? 

3 

DATA 

5? 

6 

DATA 

6 ? 


DATA 

7? 

Q 

DATA 

C**“> 

i .. 1 : 

7 

DATA 

9 ? 
** • 

Q 

o 

DATA 

1 0 

“■ 4 

SAMPLE : 

2 : 


SIZE? 

10 


DATA 

1 ? 

7 

DATA 

2 ? 

9 

DATA 

•"*| a *“| 

• "l •* 

• •• 4 

o 

1^1 

DATA 

4? 

5 

DATA 

5? 

10 

DATA 

* 

9 

DATA 

7? 

10 

DATA 

o o 

O : 

A 

DATA 

97 

cr 

D 

DATA 

10 ' 

? 2 

FIRST PRECEDING, 
SECOND PRECEDING 


71.5 


•~i o cr 

jtL. *_• m J 




MANN-WITNEY U TEST 


5 GRAPHICS 0 

1.0 PRINT "MANN--WHITNEY U-TEST" 

20 PRINT 

28 REM - SET MAXIMUM SAMPLE SIZE TO X(M>,Y(N> (WHERE M=MAXIMUM ' 

29 REM - SAMPLE 1, N=MAXIMUM SIZE OF SAMPLE 2) 

30 DIM X(25)»Y(25) 

40 DIM N(2) 

49 REM - INPUT THE TWO SAMPLES 

50 FOR 1=1 TO 2 

60 PRINT "SAMPLE “;15 " : " 

70 PRINT " SIZE"; 

SO INPUT A 

82 N(I)-A 

90 FOR J=1 TO N(I> 

100 PRINT " DATA ";J; 

110 INPUT A 
112 Y <. J)~A 
120 NEXT J 

129 REM - SORT EACH SAMPLE 

130 FOR J=t TO N(I) 

FOR K=1 TO N(I>-J 


00 


* .* • » 
.iL 


u 

229 

230 
240 
250 

260 

•"!« " 7 A 
4::. / U 

**7 
/ / 

280 


•<* m 


150 C=Y(K> 

J70 IF Y(K)<Y(K+1) THEN 
180 Y (l< ) =Y (K> 1. ) 

190 Y(K+1)=C 
200 NEXT l< 

210 NEXT J 
PRINT 

REM - TRANSFER FIRST EXAMPLE TO X-ARRAY 
IF 1=2 THEN 270 
FOR J=1 TO Nil) 

X (.J) =Y (..J) 

NEXT J 
NEXT I 

REM - ADD UP RANKS 
R=1 
1=0 
J=0 
1 = 1 + 1 
,1=J+1 

IF I>N<1> THEN 580 
IF J>N(2) THEN 620 
IF X <I)<Y(J) THEN 620 
IF Y(.J > <X(I> THEN 590 

REM - LINES 370 TO 570 HANDLE EQUAL SCORES FROM BOTH SAMPLE 

K=2 
M= I 
L=J 

R1=2*R+1 
410 R=R+2 
420 1=1+1 
430 . J—.1 +1 

440 IF I>N(1) THEN 480 
450 IF XUXXI-l) THEN 480 
460 1=1+1 


290 
300 
310 
320 
330 
340 
350 
360 

369 

370 
380 
390 
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470 GOTO 510 

480 IF J>N(2) THEM 550 

490 IF Y(J)<>(J-1) THEN 550 

500 .J-.J+1 

510 R I. -R1+R 

520 R=R+1 

530 K=K+1 

540 GOTO 440 

550 X=X + ( I - M ) h-R 1. / K 

560 Y=Y+(J—L)*R1/K 

570 GOTO 330 

580 IF -J>N (2) THEN 660 

590 Y-Y+R 

600 Jss.J+1 

610 GOTO 640 
620 X=X+R 
630 I=I+1 
640 R=R+1 
650 GOTO 330 

659 REM - U1“NUMBER OF TIMES SAMPLE 1 SCORES PRECEDE SAMPLE 

660 U1 -N ( 1 ) *N (2) +N ( 1 ) * (N ( 1 ) +1 ) /2--X 

669 REM - U2-IMUMBER OF TIMES SAMPLE 2 SCORES PRECEDE SAMPLE 

670 U2=N(1)*N(2)+N(2) *( N(2)+1)/2-Y 
680 PRINT 

690 PRINT "FIRST PRECEDING, U = ";IJ1 
700 PRINT "SECOND PRECEDING, U = »; I..I2 
710 END 


2 SCORES 


1 SCORES 
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Mean, Variance, Standard Deviation 


This program calculates the arithmetic mean, variance, and standard deviation of grouped or ungrouped 
data. The data may represent the entire population or just a sample. 


Examples: 

There are ten people in a hotel lobby, aged 87, 53, 35, 42, 9, 48, 51, 60, 39, and 44. What would the 
mean, variance, and standard deviation of the ages of all the people in the hotel be, using the people in 
the lobby as a sample? 

Find the mean, variance, and standard deviation of the ages of the cream cheese on a market shelf. 
The table below lists the age distribution of 50 packages. Assume the table shows the store’s entire 
inventory. What if it is only a sample of the inventory? 

Age 
Quantity 

Cream Cheese 


i 

2 

3 

4 

5 

6 

!5 

10 

9 

6 

7 

3 


MEAN, VARIANCE, STANDARD DEVIATION 
METHOD (0=P0PULATION, 1=SAMPLE>? 1 


DATA 

(0=GROUPED, 1=UNG 

NUMBER OF OBSERVATIONS 

ITEM 

1 ? 87 

I TEM 

•**'t ,,w i CT 

X ,» ~z 

j! p I 

ITEM 

•“i *"■« cr 

: .. .» 

ITEM 

4? 42 

ITEM 

5? 9 

ITEM 

6 ? 48 

ITEM 

7? 51 

ITEM 

8 ? 60 

ITEM 

9? 39 

ITEM 

10? 44 

MEAN 

VARIANCE 

46. 8 

"jOO ~7 OOOOO 

. w i 0 a / , ii( i ^ » t ( i 


STANDARD DEVIATION 
19.74165363 

MORE DATA <1=YES, 0=N0>? 1 

METHOD < G=POPULATION, 1=SAMPLE> ? 0 
DATA (0=GR0UPED, 1=UNGROUPED>? 0 

NUMBER OF OBSERVATIONS? 6 


ITEM, FREQUENC 
ITEM, FREQUENC 
ITEM, FREQUENC 
ITEM, FREQUENC 


Y 1? 1,15 


Y 2' 

Y S' 

Y 4- 


2 , 10 
3, 9 
4,6 
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ITEM, FREQUENCY 5? 5,7 
ITEM, FREQUENCY 6? 6,3 


MEAN 
2. 73 


VARIANCE 
2.57159786 


STANDARD DEVIATION 
1.60362023 

MORE DATA <1=YES, 0=N0>? 1 


METHOD (DEPOPULATION, 1=SAMPLE>? 
DATA (0=GR0UPED, 1 =UNGROUPED) ? 0 
NUMBER OF OBSERVATIONS? 6 
ITEM, FREQUENCY 1? 1,15 
ITEM, FREQUENCY 2? 2,10 
ITEM, FREQUENCY 3? 3,9 
ITEM, FREQUENCY 4? 4,6 
ITEM, FREQUENCY 5? 5,7 
ITEM, FREQUENCY 6? 6,3 


MEAN 

O *7 o 

jL m / O 


VARIANCE 
2.62407944 


STANDARD DEVIATION 
1.61990105 


MORE DATA (1=YES, 0=N0)? 0 
5 GRAPHICS 0 

10 PRINT "MEAN, VARIANCE, "; 

20 PRINT "STANDARD DEVIATION" 

25 PRINT 

30 PRINT "METHOD (DEPOPULATION, 1=SAMPLE> 

40 INPUT S 

50 PRINT "DATA (0=GR0UPED, 1 =UNGROUPED) " ; 

60 INPUT K 

70 PRINT "NUMBER OF OBSERVATIONS"; 

80 INPUT N 
90 R=0 
100 M=0 
110 P=0 

120 IF K=1 THEN 230 

129 REM FOR GROUPED DATA 

130 FOR 1=1 TO N 

140 PRINT "ITEM, FREQUENCY " ; I; 

150 INPUT A,B 

159 REM - ACCUMULATE ENTERED VALUES 

160 R=R+B*A 

169 REM - ACCUMULATE INTERMEDIATE VALUES Ff 

170 P=P+B 
ISO M=M+B*A--2 
190 NEXT I 

199 REM - CALCULATE MEAN AND VARIANCE 

200 R=R/P 


FOR VARIANCE 



MEAN. VARIANCE, STANDARD DEVIATION 
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210 

219 

220 


• *» 11 
•C. X. 


230 
240 
250 

259 

260 

269 

270 
280 

289 

290 
300 
310 
31 9 
320 
330 

oo 1 

I 

o o 

•>.' v.» 

oo o 
*..»o 

340 

349 

350 
360 
370 


V" < M-P*R'"2 ) / (P--S > 

REM - PRINT RESULTS 
GOTO 310 

REM - FOR UNGROUPED DATA 
FOR I=--l TO N 
PRINT "ITEM "5 15 
INPUT D 

REM - ACCUMUATE ENTERED VALUES 
p=p+B 

REM - ACCUMULATE INTERMEDIATE VALUES FOR VARIANCE 

M=M+D-'2 

NEXT I 

REM - CALCULATE MEAN AND VARIANCE, PRINT 
R=P/N 

V- ( M~N*R- S 2 ) / (N- S ) 

PR I NT 

REM - PRINT RESULTS 
PRINT "MEAN","VARIANCE" 

PRINT R,V 
PRINT 

PRINT "STANDARD DEVIATION" 

PRINT SQR(V) 

PR I NT 

REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
PRINT "MORE DATA <1=YES, 0=N0>" 

INPUT S 

IF S-1 THEN 25 


ft 

n 


»i, 


JO 
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Geometric Meen end Devietion 


This program computes the geometric mean and standard deviation of a set of data. 


Example: 


Find the geometric mean and standard deviation of 3, 5, 8, 3, 7, 2. 
GEOMETRIC MEAN AND DEVIATION 

(TO END PROGRAM, ENTER 0) 

NUMBER OF OBSERVATIONS? 6 
ITEM 1? 3 
ITEM : 

ITEM 3" 

ITEM 4" 

ITEM 5' 

ITEM 61 

GEOMETRIC MEAN = 4.1406805: 




.♦ »_* 
3 


7 


GEOMETRIC DEVIATION 


1.72368997 


NUMBER OF OBSERVATIONS? 0 
5 GRAPHICS 0 

10 PRINT "GEOMETRIC MEAN AND DEVIATION" 

20 PRINT 

30 PRINT "(TO END PROGRAM, ENTER 0)" 

40 PRINT "NUMBER OF OBSERVATIONS"; 

50 INPUT N 

59 REM - TEST FOR END OF PROGRAM 

60 IF N=0 THEN 200 

69 REM - COMPUTE WHICH ROOT TO USE 

70 P— 1/N 
80 M= 1 

90 FOR 1=1 TO N 
100 PRINT "ITEM ";I; 

110 INPUT D 

119 REM - ITERATIVELY COMPUTE MEAN 

120 M=M*D-'P 

129 REM - ACCUMULATE INTERMEDIATE TERM FOR DEVIATION 

130 Q=Q+LOO ( D) -" 2 
J 40 NEXT I 

149 REM - COMPUTE DEVIATION 

150 R=EXP(SQR(Q/(N—1)-(N/(N-l)*(LOG(M))""2))) 

160 PRINT "GEOMETRIC MEAN = ";M 

1.70 PRINT "GEOMETRIC DEVIATION = ";R 
180 PRINT 

189 REM - RESTART PROGRAM 

190 GOTO 40 
200 END 


' _t 

x 
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Binomial Distribution 


This program calculates the probability of obtaining a given number of successes in a given number of 
Bernoulli trials. You must provide the probability of success on a single trial. 


Examples: 

What is the probability of getting three heads in five tosses of a fair coin? 

What is the probability that in five rolls of a fair die, a one (1) appears twice? 

BINOMIAL DISTRIBUT ION 


(TO END PROGRAM ENTER 0) 

NUMBER OF TRIALS? 5 

EXACT NUMBER OF SUCCESSES? 3 

PROBABILITY OF SUCCESS? 0.5 

PROBABILITY OF 3 SUCCESSES 
IN 5 TRIALS = 0.3124999833 

NUMBER OF TRIALS? 5 

EXACT NUMBER OF SUCCESSES? 2 

PROBABILITY OF SUCCESS? 0.166666667 

PROBABILITY OF 2 SUCCESSES 
IN 5 TRIALS = 0.160751028 

NUMBER OF TRIALS? 0 


5 GRAPHICS 0 

10 PRINT "BINOMIAL DISTRIBUTION" 

20 PRINT 
30 DIM M< 3) 

40 PRINT "(TO END PROGRAM ENTER 0)" 
50 PRINT "NUMBER OF TRIALS"; 

60 INPUT N 

70 IF N~0 THEN 270 

80 PRINT "EXACT NUMBER OF SUCCESSES"; 
90 INPUT X 

100 PRINT "PROBABILITY OF SUCCESS"; 
110 INPUT P 

13.9 REM - COMPUTE THE FACTORIALS 

120 M(1)=N 

130 M ( 2) ==X 

140 M(3)=N—X 

150 FOR 1=1 TO 3 

160 IF M(I)=0 THEN 220 

170 A=1 

180 FOR J=1 TO M(I) 
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SOME COMMON BASIC PROGRAMS - ATARI 


1 90 
200 

2 X 0 
220 
229 
290 


L*.. I 


240 

245 

247 

250 

cr r» 

I */ 

260 

270 


A—A-k-.J 
NEXT J 
M < I ) ~l,OG < A) 

NEXT I 

REM - USING THE COMPUTED FACTORIALS, COMPUTE PROBABILITY 
R=EXP ( M ( I ) -M (2 ) - M ( 3) +X*LGG ( P) + (N -X > «l OO ( 1 -p ) > 

PR I NT 

PRINT "PROBABILITY OF ";X: 

PRINT " SUCCESSES" 

PRINT "IN ";N;" TRIALS = ";R 
PRINT 

REM - RESTART PROGRAM 

GOTO 50 

END 
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Poisson Distribution 


Using the Poisson distribution this program calculates the probability of an event occurring a given 
number of times. You must know the expected frequency of the event. 


Example: 

2000 people are injected with a serum. The probability of any one person having a bad reaction is 0.001. 
Thus we can expect two (0.001 • 2000 = 2) individuals will suffer a bad reaction. What is the probability 
that four people will have bad reactions? Only one person? 

F'O ISSON DISTRI BUT I ON 


(TO END PROGRAM ENTER O) 


CALCULATED FREQUENCY? 2 
TEST FREQUENCY? 4 
PROBABILITY OF 4 
OCCURRENCES = O.0902235266 


CALCULATED FREQUENCY? 2 
TEST FREQUENCY? 1 
PROBABILITY OF 1 
OCCURRENCES = 0.2706705678 

CALCULATED FREQUENCY? O 
5 GRAPHICS O 

10 PRINT "POISSON DISTRIBUTION" 

15 PRINT 

20 PRINT "(TO END PROGRAM ENTER 0)" 
30 PRINT 

40 PRINT "CALCULATED FREQUENCY"; 

50 INPUT L 

59 REM - END PROGRAM? 

60 IF L_=0 THEN 180 

70 PRINT "TEST FREQUENCY"? 

80 INPUT X 

89 REM - COMPUTE FACTORIAL. 

90 A=l 

100 FOR 1=1 TO X 
110 A=A*I 
120 NEXT I 

129 REM - COMPUTE PROBABILITY 

130 A=LOG(A) 

140 A=EXP ( -L.+X*LOG (L ) -A) 

150 PRINT "PROBABILITY OF ";X 
160 PRINT "OCCURRENCES = "?A 

169 REM -- RESTART PROGRAM 

170 GOTO 30 
180 END 
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Normal Distribution 


This program calculates the probability and frequency of given values on a standard normal distribution 
curve. You can use non-standard variables if you know the mean and standard deviation. 



Standard Normal Distribution 

The shaded area represents the probability of x. y corresponds to the frequency of x. 

The normal probability is approximated using the following formula: 

probability = 1 - r(o,r + a 2 t 2 + a 3 t 3 ) + «(*) 

where: a t = 0.4361836 
a 2 = -0.1201676 
a 3 = 0.9372980 
r = (e-* ! / 2 )( 27 r)-'/, 
t = (1 + 0.3326a-)-' 

|e(x)| < 10- 5 


Example: 


The mean weight of the male students at a college is 150 pounds. The standard deviation is 15 pounds If 
the weights are normally distributed, what is the probability that a student weighs between 150 and 180 
pounds? Between 130 and 150 pounds? 

NORMAL DISTRIBUTION 

<0=STANDARD,1=NON-STANDARD) 

WHICH TYPE OF VARIABLE? 1 
MEAN? 150 

STANDARD DEVIATION? 15 


(TO END PROGRAM X -99999) 


X =? ISO 
FREQUENCY = 
PROBABILITY 


O.053990968 
= 0.9772411 


1 

© 

o 


X -? 130 

FREQUENCY = O.1640100766 
PROBAB ILI TY = 0.90879803 

X =? 99999 


5 GRAPHICS O 

10 PRINT "NORMAL DISTRIBUTION" 
20 PRINT 



NORMAL DISTRIBUTION 
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30 PRINT " <0=STANDARD>1=NON-STANDARD)" 

40 PRINT "WHICH TYPE OF VARIABLE"? 

50 INPUT S 

60 IF S=0 THEN 120 

69 REM - LINES 70-110 REQUEST "NON-STANDARD" VARIABLE DATA 

70 PRINT "MEAN"? 

80 INPUT M 

90 PRINT "STANDARD DEVIATION"? 

100 INPUT S 
110 GOTO 1.30 
120 S=1 
130 PRINT 

140 PRINT "(TO END PROGRAM X=99999)" 

1.50 PRINT "X =" ? 

160 INPUT X 

170 IF X=99999 THEN 290 

1.79 REM - ADJUST FOR NON-STANDARD VARIABLES 
180 X=ABS<(X-M)/S) 

189 REM - COMPUTE FREQUENCY 

190 R=EXP ( - ( X"'"2 ) /2) /2.50662827 
200 PRINT "FREQUENCY = "?R 
210 Z=X 

219 REM - APPROXIMATE PROBABILITY (AREA UNDER CURVE) 

220 T=1/(1+0 .33267*ABS(X)) 

230 T— 1 -R* (0. 4361836*T-0. 1 20167*T ""2+0. 937298*T A 3 ) 

239 REM - ADJUST FOR NEGATIVE VARIABLES 

240 IF Z>=0 THEN 260 
250 T=1~T 

260 PRINT "PROBABILITY = "?T 
270 PRINT 
280 GOTO 1.50 
290 END 
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Chi-Square Distribution 



This program calculates the tail-end value for points on a chi-square (X 2 ) distribution curve. You must 
provide the value of X 2 and the degrees of freedom. 



Chi-Square Distribution 


The shaded area represents the tail-end value of A" 2 . 
The X 2 distribution function is calculated using the following formulas: 


with v odd, tail-end value = 1 - (* 2 ) (v + 1)/2 • - . / 2 V* 


with v even, tail-end value = 1 - 


i • 3 • 5 ... v 
(X 2 )v/ 2 • e --W/2 


X 2 


IT 


2 • 4 


.. v 


where: v = degrees of freedom 


Z = 1 + 


00 

2 


(X 2 ) 


m 


m - I (v + 2) • (v + 4) • ... (v + 2m) 


Since the summation in the calculation of Z cannot actually extend to infinity, we stop summation 

when the next term is less than a chosen level of precision. The computational precision is limited to 
approximately 10 . 


Example: 


Of a group of 168 people who complained they did not sleep well, 54 were given sleeping pills and the 

remainder received placebos. They were later asked whether or not the pills had helped them sleep. The 

X statistic for this study was computed to be 2.571108 with one degree of freedom. What is the tail-end 
value? 

CHI-SQUARE DISTRIBUTION 

(TO END PROGRAM ENTER O) 

DEGREES OF FREEDOM? 1 
CHI-SQUARE? 2.571108 
TAIL END VALUE =0.1088315 

DEGREES OF FREEDOM? 0 


5 GRAPHICS O 

6 PI=3.14159265 

10 PRINT "CHI-SQUARE 


DISTRIBUTION" 



PR I NT 



CHI-SQUARE DISTRIBUTION 
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30 PRINT "(TO END PROGRAM ENTER 0)" 

40 PRINT "DEGREES OF FREEDOM"; 

50 INPUT V 

60 IF V=0 THEN 280 

70 PRINT "CHI-SQUARE"; 

80 INPUT W 

89 REM - R=DENOMINATOR PRODUCT 

90 R=1 

100 FOR I=V TO 2 STEP -2 
110 R=R*I 
120 NEXT I 

129 REM - K~THE NUMERATOR PRODUCT 

130 K>W ' (I NT ( (V+t ) / 2 > >*EXP(-W/2>/R 

139 REM - THE PI FACTOR IS USED ONLY WHEN DEGREES OF FREEDOM ARE ODD 

140 IF INT(V/2)=V/2 THEN 170 
150 J=SQR(2/W/PI) 

160 GOTO 180 

169 REM - L. (SUMMATION FACTOR) CALCULATED LINES 170-240 

170 J~1 


1 80 
190 
200 
210 
219 

•*"l 

230 

240 


260 

269 

270 


*„• 


L= 1 
M~ 1 

v=v+2 

M=M*W/V 

REM - CHECK FOR END OF 
IF MO.0E-07 THEN 250 
L=L.+M 
GOTO 200 

^miflill. 

PR I NT 

REM - RESTART PROGRAM 
GOTO 40 
END 


S 


SUMMATION 


OPTION 

You may wish to compute the percentile rather than the tail-end value. This value corresponds to the 
unshaded area in the figure above. The program changes necessary are listed following the example 
below. 


Example: 

What is the percentile in the example above? 

CHI-SQUARE DISTRIBUTION 

(TO END PROGRAM ENTER 0) 
DEGREES OF FREEDOM? 1 
CHI-SQUARE? 2.571108 
PERCENTILE = 0.8911685 


DEGREES OF FREEDOM? 0 
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SOME COMMON BASIC PROGRAMS — ATARI 


1 REM - OPTION 250 

5 GRAPHICS 0 

6 PI=3.14159265 

10 PRINT "CHI-SQUARE DISTRIBUTION" 


240 GOTO 200 

if 


260 PRINT ^*>™^**te*'.* 

269 REM - RESTART PROGRAM 

270 GOTO 40 



END 
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Chi-Square Test 


This program calculates the chi-square ( X 2 ) statistic and degrees of freedom associated with a given 
contingency table. The expected value for each cell and X 2 contribution from each cell are also printed. 

The dimension statement at line 30 limits the size of the contingency table. You can change the 
dimensions according to the following scheme-. 

30 DIM VI (/? • C) , V2(C) , A<7?> 

where: R - number of rows in the contingency table 

C - number of columns in the contingency table 


Example: 

Of a group of people who complained they could not sleep well, some were given sleeping pills while 
others were given placebos. Later they were asked whether or not the pills had helped them sleep. The 
results are detailed in the table below. What is the value of the X 2 statistic? 


Sleeping pill 
Placebo 


Slept Slept 
Well Poorly 


44 

10 

81 

35 


CHI-SQUARE TEST 


NUMBER OF ROWS? 2 
NUMBER OF COLUMNS? 
CONTINGENCY TABLE: 
ROW 1 

ELEMENT 1? 44 
ELEMENT 2? 10 
ROW 2 

ELEMENT 1? 81 
ELEMENT 2? 35 


OBSERVED 


EXPECTED 


CHI '••■2 


CONTRIBUTION 


COLUMN 1 


44 

39.70588235 

0.3625490065 

81 

35.29411764 

0.1687728133 

COLUMN 2 



10 

14.29411764 

1.00703057 

•:< 

O -J 

30.70588235 

0.4638133705 


CHI-SQUARE = 2.00721575 
DEGREES OF FREEDOM = 1 

5 GRAPHICS 0 

10 PRINT "CHI-SQUARE TEST" 

20 PRINT 

26 REM - LIMIT SIZE OF CONTINGENCY 

27 REM - TABLES TO V 1 ( R*C >, V2 < C ), A < R > 
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SOME COMMON BASIC PROGRAMS 


28 REM - WHERE R=NUMBER OF ROWS, 

29 REM - C=NUMBER OF COLUMNS 

30 DIM VI(4),02(2),A<2) 

40 PRINT "NUMBER OF ROWS"; 

48 REM -• INPUT CONTINGENCY TABLE 

49 REM -- LINES 50 TO 150 

50 INPUT R 

60 PRINT "NUMBER OF COLUMNS"; 

70 INPUT C 

80 PRINT "CONTINGENCY TABLE:" 

90 FOR 1=1 TO R 
100 PRINT "ROW ";I 
110 FOR .J=l TO C 

120 PRINT " ELEMENT ";J; 

130 INPUT X 

132 VI<<1-1>*C+J)=X 

140 NEXT J 

150 NEXT I 

160 PRINT 

168 REM - ADD UP MARGINAL FREQUENCIES 

169 REM - FOR EACH ROW 

170 L=0 
180 M=1 

190 FOR 1=1 TO R 
195 A(I)=0 
200 FOR J=1 TO C 
210 A(I>=A<I)+Vl(M) 

220 M=M+1 


230 

240 

250 

260 

268 

269 

270 

Am / ' j 

OOA 
x.. O U 

290 

300 

310 
-.-•n 

330 


FREQUENCIES 


340 

350 

360 

369 

370 

o / D 

377 

378 

379 

380 

OO 1 

ooo 
-_z» o 


NEXT J 
L=L+A(I) 

NEXT I 
N=R*C 

REM - ADD UP MARGINAL 
REM - FOR EACH COLUMN 
FOR 1=1 TO C 
V2 <I)=0 

FOR J=I TO N STEP C 
V2(I)=V2(I)+V1< J) 

NEXT J 
NEXT I 

z=o 

PRINT "OBSERVED EXPECTED 
" CHI • x 2 CONTRI BUT I ON " 

= 1 TO C 
PRINT " COLUMN ";l 
FOR J=1 TO R 

REM - P=EXPECTED CELL VALUE 
P=A(.J)*V2( I )/L 
X=I +(J-l)*C 

REM -- USE YATES" CORRECTION FOR 

REM - CONTINUITY IN 2 X 2 CHI-- 

REM - SQUARE TEST 

IF R<>2 THEN 390 

IF C02 THEN 390 

Y= < ABS (VI ( X ) -P) -0. 5 ) '"2/P 


II 


PRINT 
FOR I 


ATARI 



CHI-SQUARE TEST 
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00TO 400 

388 REM - Y=CHI-SQUARE CONTRIBUTION 

389 REM - FROM THIS CELL 

390 Y= < V1< X >-P > A 2/P 

399 REM - Z=TOTAl_ CHI-SQUARE VALUE 

400 Z = Z+Y 

410 PRINT " "iVl(X)5" "?P? 

411 PRINT " "* Y 

420 NEXT J 

430 NEXT I 
440 PRINT 

450 PRINT "CHI-SQUARE = ";Z 

460 PRINT "DEGREES OF FREEDOM = "? 

461 PRINT (C—1> *(R-1) 

470 END 
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Student’s /-distribution 



This program calculates right-tail values for points on a t -distribution curve. You must provide the value 
of t and the degrees of freedom. 



The shaded area represents the right-tail value for t. 
The right-tail value is approximated using the following formula: 


right-tail value 



+ a,x + a 2 x 2 + a 3 x 3 + a 4 x 4 ) ~ 4 + e(x) 


where: a , = 0.196854 
a 2 = 0.115194 
a 3 = 0.000344 
a 4 = 0.019527 


x - 



e(x) I < 2.5 • 10- 4 


Examples: 

What is the right-tail value when the t -value is 2.921 and there are 16 degrees of freedom? 
What is the right-tail value when the t -value is 11.178 and there are 5 degrees of freedom? 

STUDENT 7 S T-DISTRIBUTION 


(TO END PROGRAM ENTER O) 

T VALUE? 2.921 

DEGREES OF FREEDOM? 16 

RIGHT TAIL VALUE = 4.87140558E-03 


T VALUE? 11.178 

DEGREES OF FREEDOM? 5 

RIGHT TAIL VALUE = 2.07763234E-04 

T VALUE? O 


5 GRAPHIC 
10 PRINT 
20 PRINT 
30 PRINT 
40 PRINT 


n 


il 


STUDENT 7 S T-DISTRIBUTIOh 


"(TO END PROGRAM ENTER 0) 
"T VALUE"; 


ll 


II 



STUDENT’S t- DISTRIBUTION TEST 
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50 I 

NPUT T 





60 I 

F 1-0 THEN 340 




70 PRINT "1 

DEGREES OF FREEDOM"? 



80 INPUT D 





90 X 

= 1 





100 

Y= 1 





1 1 o 

T--T''2 





i i 9 

REM - i 

COMPUTE USING 

INVERSE 

FOR SMALL 

VALUES 

120 

IF T<1 

THEN 170 




130 

S“Y 





140 

R=D 





150 

Z~T 





160 

GOTO 200 




170 

S--D 





180 

R-Y 





190 

Z ~ 1 / T 





200 

.J==2/9/: 





210 

K-2/9/1 

R 




219 

REM - i 

COMPUTE USING 

APPROX II 

MATION FOR 

MULAS 

220 

L=A8S< 

( l-K>*Z-‘-( 1/3) 

--1+J) /80! 

R(K*Z A (2/3 

) + J} 

230 

IF R<4 

THEN 270 




240 

X=0.25 

/ (1+L-MO.1968 

54+L*(0. 

115194+L*( 

3.44E-04+L+0.019527)))) 

260 

GOTO 2 

90 




270 

L=L*(1 

+0. 08*L "'4/R"" 3 

) 



280 

GOTO 2 

40 




289 

REM -- 

ADJUST IF INVERSE WAS 

COMPUTED 


290 

IF T>= 

1 THEN 310 




300 

X=1~X 





310 

PRINT 

"RIGHT TAIL VALUE = " 

; X 


O Of**! 
O xl V/ 

PRINT 





330 

GOTO 40 




340 

END 
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Student’s ?-distribution Test 



This program calculates the t -statistic and degrees of freedom for Student’s t Distribution. The 
calculations can be based on any one of three hypotheses. 

The first hypothesis assumes that one population mean is equal to a given value. You must enter the 
elements of the sample and the value of the mean. 

The remaining hypotheses compare two populations. In both tests the means of the two populations 

are equal, but the standard deviations may be equal or unequal. For these hypotheses you must enter the 
elements of each sample. 

The dimension statement at line 30 limits the size of the samples you may enter. You can change the 
limit according to the following scheme: 


30 DIM P (TV , 2) 

where N - maximum sample size. 


Examples: 


A sample of children’s IQs was taken, the results being 101, 99, 120, 79, 111, 98,106, 112, 87 and 97 
Calculate the t -statistic assuming the population mean is 100. ’ 

A second sample was taken, the results being 101, 95,130,150, 75, 79,111,100,98, and 91. Calculate 
the t -statistic based on the hypothesis that the two samples have equal means and standard deviations 




TUDENT'S 


T-DISTRIBUTION 


TE 



TEST 1: MEAN = X 

TEST 2: MEAN = MEAN.SD = SD 

TEST 3: MEAN = MEAN,SD O SD 


WHICH HYPOTHESIS? 


1 


SAMPLE 1 : 

NUMBER OF ELEMENTS? 10 


ELEMENT 

1 ? 

101 

ELEMENT 

2 ? 

99 

ELEMENT 

3 V 

120 

ELEMENT 

4? 

79 

ELEMENT 

5? 

111 

ELEMENT 

A? 

98 

ELEMENT 

7? 

106 

ELEMENT 

o 

O : 

112 

ELEMENT 

9? 

87 

ELEMENT 

10? 97 


VALUE OF MEAN? ICO 


T-VAL.UE 

DEGREES 


— U a z'61513u56y 
OF FREEDOM = 9 




STUDENT'S I- DISTRIBUTION TEST 
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5 GRAPHICS 0 

10 PRINT "STUDENT'S T-DISTRIBUTION TEST" 
20 PRINT 

28 REM - LIMIT SAMPLE SIZE TO P(N»2> 

29 REM - WHERE N=MAXIMUM SAMPLE SIZE 

30 D I M P (10 , 2) 

40 DIM V < 2 )7 R(2)> M(2)-D(2) 

SO PRINT "TEST 1: MEAN = X" 

60 PRINT "TEST 2: MEAN = MEAN7 SD = SD" 


J * 

. t II 


MEAN 


MEAN,SD 


70 PRINT "TEST 
80 PRINT 

85 PRINT "WHICH HYPOTHESIS"; 

90 INPUT T 
100 PRINT 

108 REM ~ INPUT 1 OR 2 SAMPLES 

109 REM - DEPENDING ON HYPOTHESIS 

110 FOR 1=1 TO SGN(T~1)+1 
120 V < I > =0 

130 D(I)=0 

140 PRINT "SAMPLE "?I?" 

150 PRINT " NUMBER OF ELEMENTS"; 
160 INPUT X 
162 R(I >~X 


SD" 


170 
180 
190 
1.92 
.199 
200 
210 
220 


jt.29 


230 

240 

250 

260 

270 

280 




290 

300 

309 

310 
320 
330 

339 

340 
350 
360 
370 
390 
41.0 
420 
430 
440 
450 


FOR d=l TO R(I) 

PRINT " ELEMENT " ;.J; 

INPUT X 
PC.I, I )=X 

REM - ACCUMULATE SAMPLES 
V(I)=V<I)+P(J,I) 

D< I >=D< I )+P( J, I ) '"•2 
NEXT J 

REM - COMPUTE INTERMEDIATE VALUES 
M <I> «V <I>/R <I> 

V < I ) = (D ( I ) -V ( I ) "-2/R ( I ) ) / (R ( I ) -1 ) 

NEXT I 
PR I NT 

IF T=2 THEN 340 
IF T=3 THEN 380 

REM - INPUT GIVEN VALUE FOR FIRST HYPOTHESIS 
PRINT "VALUE OF MEAN"; 

INPUT M 

REM -• COMPUTE T AND DEGREES OF FREEDOM FOR FIRST HYPOTHESIS 
A=< M <1)-M >*SQR(R <1)/V(1>) 

B=R(1)~1 
GOTO 420 

REM - COMPUTE T AND DEGREES OF FREEDOM FOR SECOND HYPOTHESIS 
A=(M(1>-M(2))/SQR(1/R<1>+l/R(2)) 

B= : R ( 1 ) +R ( 2) -2 

A=A/SQR<((R(1)-1)*V(1) + < R(2)-1> *V < 2))/B) 

GOTO 420 

B=(V <1)/R <1> + V(2)/R(2)) A 2 
B=INT(B+0.5) 

PR I NT 

PRINT "T-VAL.UE = ";ABS(A) 

PRINT "DEGREES OF FREEDOM = ";B 
END 
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/'-distribution 


This program calculates percentile values for given values on an F -distribution curve. You must provide 
the value of is the degrees of freedom in the numerator and the degrees of freedom in the denominator. 



The F-distribution 

The area of the shaded region represents the percentile. 


The /"-distribution function is approximated using the following formula: 


percentile 



+ V + a 2 y 2 + a 3 y 2 + a 4 y 4 ) + e(y) 


where: a , = 0.196854 
a 2 = 0.115194 
a 3 = 0.000344 
a 4 = 0.019527 


v 



2 

9d 2 




d { - degrees of freedom in numerator 
d 2 = degrees of freedom in denominator 


t (>’) I < 2.5 • 10- 4 


Examples: 

What is the percentile on an F -distribution curve when the /"-value is 0.474 and the degrees of freedom 
are 1 and 18? 

What is the percentile when the /"-value is 23.7 and the degrees of freedom are 3 and 6? 

F-BISTRIBUTION 


(TO END PROGRAM ENTER O) 

F-VALUE? 0.474 

DEGREES OF FREEDOM IN NUMERATOR? 1 
DEGREES OF FREEDOM IN DENOMINATOR? 
PERCENTILE = 0.4937 


18 


F-VALUE? 23.7 

DEGREES OF FREEDOM IN NUMERATOR? 3 
DEGREES OF FREEDOM IN DENOMINATOR? 
PERCENTILE = 0.9984 


A 


F-VALUE? 0 



F- DISTRIBUTION 


145 




H 


: 'H I OS 0 
10 PRINT "F-DISTRIBUTION" 

20 PRINT 

30 PRINT "(TO END PROGRAM ENTER 0>" 

40 PRINT "F-VALUE"? 

50 INPUT F 

60 IF F~0 THEM 340 

70 PRINT “DEGREES OF FREEDOM IN NUMERATOR"; 

80 INPUT D1 

90 PRINT "DEGREES OF FREEDOM IN DENOMINATOR"; 

100 INPUT D2 
1J. ij X 1 

119 REM - COMPUTE USING INVERSE FOR SMALL F-VALUES 

120 IF F<1 THEN 170 
130 S=D1 

140 T=D2 
150 I~F 
160 GOTO 200 
170 S=D2 
180 T=D1 
190 Z=l/F 
200 U==2/9/S 
210 K=2/9/T 

219 REM - COMPUTE USING APPROXIMATION FORMULAS 

220 V= ABS ( < 1 -K > * Z A ( 1 /3 > -1 +.J ) /SQR (K* Z ( 2/3 ) + J ) 

230 IF T<4 THEN 270 

240 X—0. 5/< 1+Y*(0. 1 *76854+Y* < 0. 1 15194+Y*<3. 44E-04+Y*0. 019527 ) ) ) ) A 4 
250 X = INT(X *10000+0.5)/10000 


260 

GOTO 290 

270 

Y=Y*(1+0 

280 

GOTO : 

>40 

o Cl 

REM - 

AD 

290 

IF F>= 

= 1 

300 

X=l-X 


310 

PRINT 

•ip 

320 

PRINT 


,n, i O 
, 1/ -• 

*-• ••**» • 

REM - 

RE 

330 

GOTO 40 

340 

END 



OPTION 

You may prefer to compute the tail-end value (the area of the unshaded region in the figure above). The 
necessary program changes are listed following the examples below. 


Examples: 

What is the tail-end value on an F -distribution curve when the F -value is 0.474 and the degrees of 
freedom are 1 and 18? 

What is the tail-end value when the F -value is 23.7 and the degrees of freedom are 3 and 6? 
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REDISTRIBUTION 

(TO END PROGRAM ENTER 0) 

F~VALUE? 0.474 

DEGREES OF FREEDOM IN NUMERATOR? 1 
DEGREES OF FREEDOM IN DENOMINATOR? IS 
TAIL END VALUE = 0.5063 




F-VALUE? 23.7 

DEGREES OF FREEDOM IN NUMERATOR? 
DEGREES OF FREEDOM IN DENOMINATOR? 6 
TAIL END VALUE = 1.6E-03 


F--VALUE? 0 


1 REM - OPTION 310 
5 GRAPHICS 0 

10 PRINT '‘E-DISTRIBUTION" 

300 X=1-X 

310 PRINT "TAIL END VALUE * "?X 
320 PRINT 

329 REM - RESTART PROGRAM 

330 GOTO 40 
340 END 
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Linear Correlation Coefficient 


This program computes the coefficient of correlation between two variables. A linear relationship is 
assumed between the variables. You must enter the coordinates of a group of data points forming the 
regression line. 


Example: 

The height of twelve men and their sons is recorded in the table below. What is the coefficient of 
correlation between the heights of fathers and the heights of their sons? 

Father 
Son 


65 

63 

67 

64 

68 

62 

70 

66 

68 

67 

69 

71 

68 

66 

68 

65 

69 

66 

68 

65 

71 

67 

68 

70 


Height in Inches 


LINEAR 

CORRELATION COEFF 

NUMBER 

OF POINT: 

-I* H 

...» : i Y- 

X, Y 

OF 

POI NT 

1? 

65, 68 

X, Y 

OF 

POINT 

•Li* • 

63 ? 66 

X, Y 

OF 

POINT 

3? 

67,68 

X, Y 

OF 

POINT 

4? 

64, 65 

X, Y 

OF 

PO I NT 

5? 

68, 69 

X, Y 

OF 

POINT 

6? 

62,66 

X, Y 

l_jP 

PO I NT 

7? 

70, 68 

X, Y 

OF 

POINT 

8? 

66,65 

X, Y 

OF 

PO I NT 

9? 

68, 71 

X, Y 

OF 

POINT 

10 

? 67,67 

X, Y 

OF 

PO I NT 

11 

■? 69,68 

X, Y 

OF 

POINT 

12 

? 71,70 

CORRELATION C 

COEFFICIENT 


0.7027844323 


5 GRAPHICS 0 

tO PRINT "LINEAR CORRELATION COEFFICIENT" 
20 PRINT 

30 PRINT "NUMBER OF POINTS"; 

40 INPUT N 

99 REM - ENTER COORDINATES OF DATA POINTS 

100 FOR 1=1 TO N 

110 PR I NT " X, Y OF F'O I NT “ ; I; 

120 INPUT X»Y 

129 REM - ACCUMULATE INTERMEDIATE VALUES 

130 •..!=. I+X 
140 K=K+Y 
150 L=L+X" S 2 
160 M=M+Y'-2 
170 R=R+X*Y 
180 NEXT I 
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189 REM - CALCULATE COEFFICIENT 

190 R2= < N*R-J*K ) /SQR ( (N*L-J - '2) * 
200 PRINT 


, PRINT 
<N*M-K A 2)> 


210 PRINT "CORRELATION 
215 PRINT R2 


COEFFICIENT 


il a 
J 



0 END 
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Linear Regression 


This program fits a straight line to a given set of coordinates using the method of least squares. The 
equation of the line, coefficient of determination, coefficient of correlation, and standard error of 
estimate are printed. Once the line has been fitted, you may predict values of y for given values of x. 


Example: 

The table below shows the height and weight of 11 male college students. Fit a curve to these points. 
How much would the average 70 inches and 72 inches male student weigh? 


Height (inches) 

71 

73 

64 

65 

61 

70 

65 

72 

63 

67 

64 

Weight (pounds) 

160 

183 

154 

168 

159 

180 

145 

210 

132 

168 

141 


LINE 

AR 

REGRE: 

SSL 

ON 



NUMBER 

OF KNi 

□WN 

POINTS? 

11 

X, Y 

UF 

POI NT 

1 ? 

71 , 

160 


X, Y 

OF 

POI NT 

2? 

73 , 

183 


X , Y 

OF 

PO I NT 

3 ? 

64 , 

154 


X, Y 

OF 

PO I NT 

4 ? 

65 , 

168 


X, Y 

OF 

PO I NT 

5 ? 

61 , 

159 


X, Y 

OF 

POINT 

6 ? 

70 , 

180 


X ? Y 

OF 

PO I NT 

7 ? 


145 


X, Y 

OF 

PO I NT 

0*“t 

: 

70 

/ -i:~ 7 

210 


X i Y 

UF 

PO I NT 

9 ? 

63 v 

1 O o 


X, Y 

UF 

POINT 

10 

? 67 

7 168 


X i Y 

OF 

PO I NT 

1 1 

? 64 

, 141 


F ( X ) 

— 

-1 06 . 

808 

L O 

L'^U 

+ ( 4 . 

04747608 * 

rrcrr t r 

L-Uc.r r J. L 

: I ENT 

OF 

DETERM 1 NAT I ON (R "-2 ) : 

O. 5 *: 

i62 A 

^51056 





COEFFIC 

: I ENT 

OF 

CORRELATI 

ON: 

0 . 74 

cr.O 1 

84133 






STANDARD ERROR OF ESTIMATE: 

15.41444264 

INTERPOLATION: (ENTER X=0 TO END) 
X =? 70 

Y = 176.514697 


X =? 72 

Y = 184.609649 



X 


o 




150 
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5 GRAPHICS 0 

10 PRINT "LINEAR REGRESSION" 

20 PRINT 

30 PRINT "NUMBER OF KNOWN POINTS"? 

40 INPUT N 

99 REM - LOOP TO ENTER COORDINATES OF POINTS 

100 FOR 1=1 TO N 

110 PRINT "X,Y OF POINT "?I; 

120 INPUT X t Y 

129 REM - ACCUMULATE INTERMEDIATE SUMS 

130 J---J+X 
140 K=K+Y 
150 L=L,+ X" % 2 
j 60 M=M+Y ''2 
170 R2=R2+X*Y 
180 NEXT I 

189 REM - COMPUTE CURVE COEFFICIENT 

190 B= (N*R2-K*J) / (M^L-J'2) 

200 A—(K-B# J)/N 

210 PRINT 

220 PRINT "F(X) = "?A?" + # X)" 

229 REM - COMPUTE REGRESSION ANAYLYSIS 

230 J=B*(R2--J*K/N> 

240 M=M~iv'2/N 

250 K=M-J 
260 PRINT 
270 R2=..l/M 

280 PRINT "COEFFICIENT OF DETERMINATION <R""2) 
282 F : ’RINT R2 


II 


283 PRINT 


290 PRINT “COEFFICIENT OF CORRELATION:" 

291 PRINT SQR(R2> 

292 PRINT 

300 PRINT "STANDARD ERROR OF ESTIMATE:" 

301 PRINT SQR(K/<N-2)) 

310 PRINT 

319 REM -■ ESTIMATE Y-COORDINATES OF POINTS WITH ENTERED 

320 PRINT "INTERPOLATION: 

321 PRINT "(ENTER X=0 TO END)" 

11 )( * 

X 

RESTART OR END PROGRAM? USER INPUT REQUIRFD 
350 IF X=0 THEN O 
360 PRINT "Y = " ? A+B-k-X 
370 PRINT 
380 GOTO 330 


X-COORDINATES 


330 PRINT 
340 INPUT 
349 REM - 
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Multiple Linear Regression 


This program finds the coefficients of a multiple variable linear equation using the method of least 
squares. The equation is of the following form: 

v = c + + a 2 x 2 + ... a„x n 

where: y - dependent variable 
c = constant 

a f ,a 2 . .... a„ = coefficients of independent variables x u x 2 ,.. , x n 

The constant and the coefficients are printed. 

You must provide the* and y coordinates of known data points. Once the equation has been found 
using the data you enter, you may predict values of the dependent variables for given values of the 
independent variables. 

The dimension statement at line 30 limits the number of known data points the equation may contain. 
You can change this limit according to the following scheme: 

30 DIM X ( N+ 1 ) ,S<A + 1 > ,T(jV+ 1 ) ,A(W+ / , N + 2) 

where N = the number of known data points. 


Example: 

The table below shows the age, height, and weight of eight boys. Using weight as the dependent variable, 
fit a curve to the data. Estimate the weight of a seven-year old boy who is 51 inches tall. 


Age 

8 

9 

6 

10 

8 

9 

9 

7 

Height 

48 

49 

44 

59 

55 

51 

55 

5a 

Weight 

59 

55 

50 

80 

61 

75 

67 

58 


MULTIPLE LINEAR REGRESSION 


NUMBER OF KNOWN POINTS? 8 
# OF INDEPENDENT VARIABLES? 
POINT 1 
VARIABLE 1? 8 
VARIABLE 2? 48 
DEPENDENT VARIABLE? 59 
POINT 2 
VARIABLE 1? 9 
VARIABLE 2? 49 
DEPENDENT VARIABLE? 55 
POINT 3 
VARIABLE 1? 6 
VARIABLE 2? 44 
DEPENDENT VARIABLE? 50 
POINT 4 

VARIABLE 1? 10 
VARIABLE 2? 59 


2 
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DEPENDENT VARIABLE'; 
POINT 5 
VARIABLE 1? 8 
VARIABLE 2? 55 
DEPENDENT VAR I ABLE'; 
POINT 6 
VARIABLE 1? 9 
VARIABLE 2? 51 
DEPENDENT VARIABLE' 
POINT 7 
VARIABLE 1? 9 
VARIABLE 2? 55 
DEPENDENT VARIABLE- 
POINT 8 
VARIABLE 1 ? 7 
VARIABLE 2? 50 
DEPENDENT VARIABLE" 


80 


61 


> y cr } 


67 


58 


EQUATION COEFFICIENTS: 

CONSTANT: -15.70212763 
VARIABLE ( 1 ): 3.68085107 
VAR I ABLE ( 2) s 0. 94326241 OS- 
COEFFICIENT OF DETERMINATION (R""2): 
0.7157091735 

COEFFICIENT OF MULTIPLE CORRELATION 
0.8459959654 

STANDARD ERROR OF ESTIMATE: 

6.42869322 


INTERPOLATION:(ENTER 0 TO END PROGRAM) 
VARIABLE 1 ? 7 
VARIABLE 2? 51 

DEPENDENT VARIABLE = 58.17021281 


VARIABLE 1? 0 


5 GRAPHICS 0 
10 PRINT "MULTIPLE 
20 PRINT 


LINEAR REGRESSION" 


29 REM - SET ARRAY LIMITS TO X<N+i), 

30 DIM X(9),S(9),T(9) 7 A(9,10) 

40 PRINT "NUMBER OF KNOWN POINTS"? 


S < N+1 ) , 


50 INPUT N 

60 PRINT "# OF INDEPENDENT VARIABLES"? 
70 INPUT V 


T(N+1), A(N+1 7 N+2) 


SO X(1> = 1 
90 FOR 1=1 TO N 
100 PRINT "POINT "?I 
110 FOR J=1 TO V 

119 REM - ENTER INDEPENDENT VARIABLES FOR EACH POINT 

120 PRINT " VARIABLE "?.J? 

130 INPUT XI 

132 X(J+1)=X1 
140 NEXT J 

149 REM - ENTER DEPENDENT VARIABLE FOR EACH POINT 



MULTIPLE LINEAR REGRESSION 


153 


150 
160 
162 
1 69 
t 70 
1 SO 
190 
200 
210 
220 
230 
240 

248 

249 

250 
260 
270 
280 
290 
300 

310 
320 
330 




340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 

520 
525 
530 
540 
550 
560 
570 
530 
590 
6 ' 

6 10 
620 
630 


PRINT " DEPENDENT VARIABLE"; 

INPUT XI 
X(V+2)=X1 

REN - POPULATE A MATRIX TO BE USED IN CURVE FITTING 
FOR K=1 TO V+l 
FOR L--1 TO V+2 
A (K» L >"A(K>L)+X(K> *X < L) 

S ( K)“A<K,V+2 > 

NEXT L 
NEXT K 

S (V+2) — S <V+2) + X (V+2) -'••2 
NEXT I 

REM - STATEMENTS 250 TO 500 FIT CURVE BY SOLVING THE SYSTEM OF; 
REM - LINEAR EQUATIONS IN MATRIX AO 
FOR 1=2 TO V+l 
T <I)=A <1,I> 

NEXT I 

FOR 1=1 TO V+l 

,1= I 

IF A ( J» I ) OO THEN 340 

. I~,J+1 

IF J<=V+1 THEN 300 

PRINT "NO UNIQUE SOLUTION" 

GOTO 810 

FOR K=1 TO V+2 

B--A < I, K) 

A ( I» K)=A<J, K) 

A(J 7 K)=B 
NEXT K 
Z=l/A<I,I) 

FOR K=1 TO V+2 
A <I» K >=Z*A(I,K) 

NEXT K 

FOR J=1 TO V+l 
IF J=I THEN 490 
Z=-A(J>I) 

FOR K=1 TO V+2 
A(J,K> =A(J,K) + Z*A(I,K) 

NEXT K 
NEXT J 
NEXT I 
PRINT 

PRINT "EQUATION COEFFICIENTS:“ 

PRINT " CONSTANT: ";A(1»V+2) 

FOR 1=2 TO V+l 

PRINT "VARIABLE <";I-1;">: ";A(I,V+2> 

NEXT I 
P=0 

FOR 1=2 TO V+l 

F'=P+A( I, V+2) *(S( I )-T< I ) *S( 1 > /N) 

NEXT I 

R=S(V+2)-S(1) A 2/N 
Z =R—F* 

L=N—V-l 
I =F'/V 
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640 PRINT 
650 I=F'/R 

660 PRINT "COEFFICIENT OF DETERMINATION <R A 2>!" 

662 PRINT I 

670 PRINT "COEFFICIENT OF MULTIPLE CORRELATION:" 
675 PRINT SQR(I) 

680 PRINT "STANDARD ERROR OF ESTIMATE:" 

681 PRINT SQR(ABS(Z/L)> 

690 PRINT 

699 REM - ESTIMATE DEPENDENT VARIABLE FROM ENTERED 

700 PRINT "INTERPOLATION:"; 

701 PRINT "(ENTER 0 TO END PROGRAM)" 

710 P=A(1 7 V+2) 

720 FOR J*1 TO V 

730 PRINT "VARIABLE "?J; 

740 INPUT X 

749 REM - TEST FOR END OF PROGRAM 

750 IF X“0 THEN 810 
760 F-F'+A (d+1, V+2) *X 
770 NEXT J 

780 PRINT "DEPENDENT VARIABLE = ";p 
790 PRINT 

799 REM - RETURN FOR MORE DATA 

800 GOTO 710 
810 END 


INDEPENDENT VARABL ES 
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Nth Order Regression 


This program finds the coefficients of an iVth order equation using the method of least squares. The 
equation is of the following form: 

y - c + a x x + a 2 x 2 + ... a n x n 

where: y = dependent variable 
c - constant 

a lt a 2 , ... , a n - coefficients of independent variables respectively 

The equation coefficients, coefficient of determination, coefficient of correlation, and standard error of 
estimate are printed. 

You must provide the x and y coordinates for known data points. Once the equation has been 
computed you may predict values of y for given values of x. 

The dimension statement at line 30 limits the degree of the equation. You can change this limit 
according to the following scheme: 

30 DIM A<2 • D+7 > , RtD + 7 , D+2) , T(D+2) 

where D = maximum degree of equation. 


Example: 

The table below gives the stopping distance (reaction plus braking distance) of an automobile at various 
speeds. Fit an exponential curve to the data. Estimate the stopping distance at 55 m.p.h. 


M.P.H. 
Stopping distance 


N-TH ORDER REGRESSION 


DEGREE 

OF EQUATION? 2 

NUMBER 

OF KNOWN 

POINTS' 

X, Y 

OF 

POINT 1? 

20 7 54 

X, Y 

OF 

POINT 2? 

30 7 90 

X, Y 

OF 

POINT 3? 

40,138 

X, Y 

OF 

POINT 4? 

50,206 

X, Y 

OF 

POINT 5? 

60 7 292 

X, Y 

OF 

POINT 6? 

70,396 


20 

30 

40 

50 

60 

70 

54 

90 

138 

206 

292 

396 


CONSTANT 

1 DEGREE COEFFICIENT 

2 DEGREE COEFFICIENT 


« 41.753171 
= -1.09477737 
= 0.0878468501 


COEFFICIENT OF DETERMINATION <R"2>: 
0.9999250511 

CORRELATION COEFFICIENT: 

0.9999625248 

STANDARD ERROR OF ESTIMATE: 

1.44933317 
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INTERPOLATIONS (ENTER 0 TO END) 
X =? 55 

V * 247« 277127 


? O 


5 ( 
10 
20 
28 

29 

30 
40 
50 


IT 


54 


55 

'J V . 1 


5RAPHICS 0 

PRINT "N'TH ORDER REGRESSION" 
PRINT 

REM - SET LIMITS OF DEGREE OF 
REM - (WHERE D=MAXIMUM DEGREE 
DIM A<13)tR<7»8)»T(S) 

PRINT "DEGREE OF EQUATION"; 
INPUT D 

FOR X-1 TO 2*D+1 
A(X)=0 
NEXT X 

FOR X=1 TO D+2 


EQUATION TO AI2D+1), 
OF EQUATION) 


Ft < D+l),D+2), T(D+2) 


m 

n 


5A T(X)=0 
57 NEXT X 

60 PRINT "NUMBER OF KNOWN POINTS" 

70 INPUT N 
SO A(1)=N 

89 REM - ENTER COORDINATES OF DATA POINTS 

90 FOR 1=1 TO N 

100 PRINT "X,Y OF POINT ";I; 

110 INPUT X,Y 

11.9 REM - LINES 120 TO 200 POPULATE MATRICES WITH A SYSTFM OF EQUATIONS 
120 FOR J*2 TO 2*D+1 
130 A (J) = A (J) + X (J-1 ) 

140 NEXT J 

150 FOR K=1 TO D+l 

160 R(K,D+2)=T(K)+Y*X" (K-1> 

1 70 T (K) =T ( K) +Y*X' % (K-1 ) 

180 NEXT K 

190 T ( D+2) =T (D+2) +Y"'2 
200 NEXT I 

209 REM - LINES 210 TO 490 SOLVE THE SYSTEM OF EQUATIONS IN THE MATRICES 

210 FOR J=1 TO D+l 

220 FOR K=1 TO D+l 
23O R (>J i K) =A (d+K-1 ) 

240 NEXT K 

250 NEXT J 

260 FOR J=1 TO D+l 

270 FOR K=J TO D+l 

280 IF R(K, J) OO THEN 320 

290 NEXT K 

300 PRINT "NO UNIQUE SOLUTION" 

310 GOTO 790 

320 FOR 1=1 TO D+2 

330 S=R(J,I) 

340 R<J,I)=R(K,I) 

350 R(K,I)=S 
360 NEXT I 
370 Z=1/R(,J,.J) 



A'TH ORDER REGRESSION 
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380 FOR 


390 
400 
4 1 0 
420 

430 

440 


□u 

460 

470 

480 


495 

496 

499 

500 

510 

511 
520 
530 

539 

540 
550 
560 
570 
580 
590 
600 
620 
630 
640 
642 

650 

651 
660 
661 
670 

679 

680 
681 
690 
700 
710 
720 
730 
740 


II « 
7 


1=1 TO 0+2 
R( J,I>=Z*R<JtI> 

NEXT I 

FOR K=1 TO D+l 
IF K=J THEN 470 
Z=-R< K,J) 

FOR 1=1 TO D+2 
R < K,I)=R(K,I)+Z*R< J»I) 

NEXT I 
NEXT K 
NEXT J 
PRINT 

PRINT " CONSTANT = 

PRINT R(1,0+2) 

REM -• PRINT EQUATION COEFFICIENTS 
FOR J=1 TO D 

PRINT J? " DEGREE COEFFICIENT = 

PRINT R(J+1? D+2) 

NEXT J 
PRINT 

REM - COMPUTE REGRESSION ANALYSIS 
P=0 

FOR d=2 TO D+l 

P=P+R(J,D+2> * < T < J >-A(J > *T(1>/N > 

NEXT d 

Q=T ( D+2) -T (1 > --2/N 

Z—Q-p 

I=N~D—1 

PR I NT 

d=P/Q 

PRINT "COEFFICIENT OF DETERMINATION (R-'2):" 

PRINT J 

PRINT "CORRELATION COEFFICIENT:" 

PRINT SQR(J) 

PRINT "STANDARD ERROR OF ESTIMATE:" 

PRINT SQR< Z / I > 

PR I NT 

REM - COMPUTE Y-COORDINATE FROM ENTERED X-COORDINATE 
PRINT "INTERPOLATION: "; 

PRINT "(ENTER 0 TO END)" 

P=R(1,D+2) 

PRINT "X ="; 

INPUT X 

IF X=0 THEN 790 
FOR J=1 TO D 
F-P+R(J+1 , D+2)*X""d 
NEXT J 


760 PRINT "Y = "?P 
770 PRINT 
780 GOTO 690 
790 END 
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Geometric Regression 


This program fits a geometric curve to a set of coordinates using the method of least squares. The 

equation, coefficient of determination, coefficient of correlation, and standard error of estimate are 
printed. 

You must provide the x andy coordinates of known data points. Once the curve has been fitted you 
may predict values ofy for given values of x. 


Example: 

The table below give the pressures of a gas measured at various volumes in an experiment. The 
relationship between pressure and volume of a gas is expressed by the following formula: 

PV K = c 

where: P - pressure 
V = volume 
C and K are constants 

This formula can be rewritten in standard geometric form: 

p = cv~ K 

Note the exponent is negative, which accounts for the negative exponents the program calculates. 
Fit a geometric curve to the data and estimate the pressure of 90 cubic inches of the gas. 


Volume 

56.! 

60.7 

73.2 

88.3 

120.1 

187.5 

Pressure 

57.0 

51.0 

39.2 

30.2 

19.6 

10.5 


GEOMETRIC REGRESSION 


NUMBER OF KNOWN POINTS? 6 
X,Y OF POINT 1? 56.1,57 
X,Y OF POINT 2? 60.7,51 
X, Y OF POINT 3' 

X, Y OF POINT 4' 

X, Y OF POINT 5‘ 

X, Y OF POINT 6“ 


;« ~7 o o q 

/ 7 •“» 7 . si 

> 88 . 3 , 30.2 
• 120 . 1 , 19.6 


• 187.5,10.5 


F ( X ) 


16103.5638 * X-'— 1.401 54885 


COEFFICIENT OF DETERMINATION <R" X 2> 
O.9999860276 

COEFFICIENT OF CORRELATION: 

O.9999930137 


STANDARD ERROR OF ESTIMATE: 
2. 674883175E--03 


INTERPOLATION:(X=0 TO END) 
X =? 90 






GEOMETRIC REGRESSION 
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Y 


29.3734994 


? 0 


5 GRAPHICS 0 

10 PRINT "GEOMETRIC REGRESSION" 

20 PRINT 

30 PRINT "NUMBER OF KNOWN POINTS"? 

40 INPUT N 

99 REM ENTER COORDINATES OF DATA POINTS 

100 FOR 1=1 TO N 

110 PRINT "X,Y OF POINT "?I? 

120 INPUT X,Y 

129 REM - ACCUMULATE INTERMEDIATE VALUES 

130 
140 
150 
160 
170 


1 SO 
190 
200 

209 

210 
220 
230 
240 

249 

250 
260 
270 
280 
290 
300 

305 

306 

310 

311 
315 
320 

nr 

■_.» •. J 

326 

330 

339 

340 

341 
350 
360 

369 

370 
-.on 

390 

399 

400 
410 


Y=LOO(Y) 

X=LOG(X) 

X 

K=K+Y 
L=L+X A 2 
M=M+Y"'2 
R2»R2+X*Y 
NEXT I 

REM - CALCULATE AND PRINT COEFFICIENTS OF EQUATION 
8 =(N*R2-K*J)/(N*L-J A 2) 

A=(K~B*.J)/N 
PR I NT 

PRINT "F < X ) = " ? EXF' < A) ? " * X""?B 
REM - CALCULATE REGRESSION ANALYSIS 
J=B*(R2-J*K/N) 

M=M--K'"2/N 

K=M-J 

PRINT 

R2=J/M 

PRINT "COEFFICIENT OF DETERMINATION (R A 2):" 

PRINT R2 
PR I NT 

PRINT "COEFFICIENT OF CORRELATION:" 

PRINT SQR(R2) 

PR I NT 

PRINT "STANDARD ERROR OF ESTIMATE:" 

PRINT SQR(K/(N-2>> 

PRINT 

PRINT 

REM - ESTIMATE Y-COORDINATE FROM ENTERED X-COORDINATE 
PRINT "INTERPOLATION:"? 

PRINT "(X=0 TO END)" 

PRINT "X = "? 

INPUT X 

REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

IF X=0 THEN 410 

PRINT "Y = " ' EXP (A) *X'”B 

PRINT 

REM - RETURN FOR MORE DATA 

GOTO 350 

END 



Exponential Regression 


This program finds the coefficients of an equation for an exponential curve. The equation is in the 
following form: 

/ (.v) = ae hx 

where a and b are the calculated coefficients 

The equation coefficients, coefficient of determination, coefficient of correlation, and standard error of 
estimate are printed. 

You must provide the x and y coordinates for known data points. Once the curve has been fitted you 
may predict values of y for given values of x. 


Example: 

The table below shows the number of bacteria present in a culture at various points in time. Fit an 
exponential curve to the data and estimate the number of bacteria after seven hours. 


Number of Hours 
Number of Bacteria 


0 

I 

2 

3 

4 

5 

6 

25 

38 

58 

89 

135 

206 

315 


EXPONENT IAL. REGRESS I ON 


NUMBER 

OF KNOWN 

PO I NT 

X, Y 

OF 

POI NT 

1 ? 

0, 25 

X, Y 

OF 

POI NT 

2 ? 

1 O o 

1 7 -JO 

X j Y 

OF 

PO I NT 

.*i .***, 
:* 

O CTO 

Jt.. 7 JO 

X, Y 

OF 

POINT 

4? 

O .~I 

X, Y 

OF 

PO I NT 

5? 

4, 135 

X, Y 

OF 

POINT 

6 7' 

5,206 

X, Y 

OF 

PO I NT 

7? 

6 ,315 

A = 

24 

. 9616401 


B = 

0 . 

a ■-*«~t cr . 

379: 



7 


COEFFICIENT OF DETERMINATION (R--2): 
1.00000505 


COEFFICIENT OF CORRELATION: 
1.00000252 

STANDARD ERROR OF ESTIMATE: 
2.247665456E—03 

INTERPOLATION: 

<X=0 TO END) 

X =? 7 

Y =480.087256 


X =? 


0 







EXPONENTIAL REGRESSION 
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5 GRAPHICS 0 

10 PRINT "EXPONENTIAL REGRESSION" 

20 PRINT 

30 PRINT "NUMBER OF KNOWN POINTS"? 

40 INPUT N 
50 d=0 
60 K=0 
70 L =0 
80 M=0 
90 R2=0 

99 REM - ENTER COORDINATES OF DATA POINTS 

100 FOR 1=1 TO N 

110 PRINT "X 7 Y OF POINT "?I? 

120 INPUT X 7 Y 

129 REM - ACCUMULATE INTERMEDIATE VALUES 

130 Y=LOG(Y) 

140 J=J+X 
150 K=K+Y 
160 L=L.+X""'2 
170 M=M+Y'"2 
180 R2=R2+X*Y 
190 NEXT I 

199 REM - CALCULATE AND PRINT COEFFICIENTS OF 

200 B= < N*R2-K*J > / <N*L-J‘"'2 ) 


210 A=(K-B*J)/N 
220 PRINT 

230 PRINT "A = "? EXP(A) 

240 PRINT "B = "SB 

249 REM - CALCULATE REGRESS 

250 .J=B*<R2-J*K/N> 

260 M=M-K"'"2/N 

270 K=M-J 
280 PRINT 


ION TABLE VALUES 


EQIJATI ON 


290 R2=.J/M 

300 PRINT "COEFFICIENT OF DETERMINATION 
302 PRINT R2 



II 


306 PRINT 

310 PRINT "COEFFICIENT OF CORRELATION:" 

312 PRINT SQR(R2) 

316 PRINT 

320 PRINT "STANDARD ERROR OF ESTIMATE:" 

322 PRINT SQR(ABS(K/(N-2))) 

326 PRINT 
330 PRINT 

339 REM - ESTIMATE Y~VALUE FROM ENTERED X-VALUE 

340 PRINT "INTERPOLATION:" 

341 PRINT "<X=0 TO END)" 

350 PRINT "X ="? 

360 INPUT X 

370 IF X=0 THEN 410 

380 PRINT “Y ="? EXP(A)#EXP<B*X) 

390 PRINT 

399 REM - RETURN FOR MORE DATA 

400 GOTO 350 


410 END 
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System Reliability 


This program calculates the reliability of an operating system that is subject to wearout and chance 

failure. You must enter the system’s operating time and the wearout time and failure rate of each 
component. 


Example: 

Compute the reliability of a computer system operating for 1000 hours with the components shown in 
the list below. 



Wearout (hours) 

Failure 

CPU 

15,000 

0.00020 

Terminal 

3,000 

0.00010 

Disk 

3,000 

0.00015 

Printer 

1,500 

0.00015 


SYSTEM REL. IABILITY 


(TO END PROGRAM ENTER 0) 
OPERATING TIME IN HOURS? 1000 
NUMBER OF COMPONENTS? 4 


COMPONENT 1 

AVERAGE WEAROUT TIME? 15000 
AVERAGE FAILURE RATE? 2E-04 


COMPONENT 2 

AVERAGE WEAROUT TIME? 3000 
AVERAGE FAILURE RATE? 1E--04 


COMPONENT 3 

AVERAGE WEAROUT TIME? 

AVERAGE FAILURE RATE? 


3000 
1.5E-04 


COMPONENT 4 

AVERAGE WEAROUT TIME? 

AVERAGE FAILURE RATE? 


1500 
1.5E-04 



STEM 


RELIABILITY = 


0. 135 



“7 


■ .• 
A. 


OPERATING TIME IN HOURS? 0 
5 GRAPHICS 0 

10 PRINT "SYSTEM RELIABILITY" 

20 PRINT 

30 PRINT "(TO END PROGRAM ENTER 0>" 
40 PRINT "OPERATING TIME IN HOURS"; 
50 INPUT T 




SYSTEM RELIABILITY 
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59 REM - TEST FOR END OF PROGRAM 

60 IF T=0 THEN 230 

70 PRINT “NUMBER OF COMPONENTS"? 

80 INPUT N 
90 Z=0 

99 REM - ENTER DATA FOR EACH COMPONENT 

100 FOR 1=1 TO N 
105 PRINT 

110 PRINT "COMPONENT "?I 

120 PRINT "AVERAGE WEAROUT TIME"? 

130 INPUT W 

140 PRINT “AVERAGE FAILURE RATE"? 

150 INPUT F 

159 REM - INCLUDE EACH COMPONENT IN RELIABILITY 

160 Z=Z+1/W+F 
170 NEXT I 
180 PRINT 

189 REM -• CALCULATE RELIABILITY, PR INI- 

190 Z=EXP(-2*T> 

200 PRINT "SYSTEM RELIABILITY ~ ";Z 
210 PRINT 

219 REM - RESTART PROGRAM 

220 GOTO 40 
230 END 
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Average Growth Rate, Future Projections 


This program calculates the average growth rate of a company, then projects figures for future years. The 
growth rate and projections could be computed for any aspect of a company, such as sales, earnings, 
number of employees, or patronage. You must provide established figures for a past series of years’ 

The dimension statement at line 30 limits the number of past figures you may enter. Any alteration of 
this limit should be done in the following manner: 

30 DIM SIN) 

where N = the number of years for which figures are known. 


Example: 

The borrowing records for Claremount County Library are tabulated in the graph below. What is its 
average growth rate? How many books can it expect to lend in its tenth and twentieth years of service? 



Year 


AVERAGE GROWTH RATE, 
FUTURE PROJECTIONS 


FIGURE: 


)F YEARS FIGURES 

YEAR- 

1 ? 26 

YEAR 

-u- : ■„.* -,J 

YEAR- 

3? 42 

YEAR 

4? 45 

YEAR 

5? 41 

YEAR 

6 ? 51 

YEAR- 

7? 60 

YEAR 

8 ? 62 

YEAR 

■? ? 74 

GROWTH RATE = 1 


= 11 . 88 */. 







AVERAGE GROWTH RATE, FUTURE PROJECTIONS 
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(ENTER 0 TO END PROGRAM) 
PROJECTED SALES FOR YEAR? 10 

= 81.29 

PROJECTED SALES FOR YEAR? 20 

= 249.87 

PROJECTED SALES FOR YEAR? 0 


5 GRAPHICS 0 

10 PRINT "AVERAGE GROWTH RATE," 

15 PRINT "FUTURE PROJECTIONS" 

20 PRINT 

29 REM - SET ARRAY S TO THE NUMBER OF YEARS FOR WHICH FIGURES ARE KNOWN 

30 DIM S(20) 

40 PRINT "NUMBER OF YEARS FIGURES ESTABLISHED"; 

50 INPUT N 
60 FOR 1=1 TO N 
70 IF I>1 THEN 100 
80 PRINT "FIGURE: YEAR ";I; 

90 GOTO 110 

100 PRINT " YEAR ";I; 

110 INPUT X 
112 S(I)=X 
120 NEXT I 

129 REM - INITIALIZE VARIABLES FOR FIRST YEAR 

130 T=LOG(S(1>) 

140 V=0 

149 REM - LOOP FOR REMAINING YEARS OF HISTORY 

150 FOR 1=2 TO N 
160 L=LOG(S <I)) 

170 T=T+L. 

180 V=V+(I~1)*L 
190 NEXT I 

199 REM - CALCULATE AVERAGE GROWTH RATE 

200 A=6 *(2#V/(N-l)—T)/(N)/(N+l) 

210 G=EXP(A)-1 

219 REM - ROUND OFF, PRINT 

220 PRINT "AVERAGE GROWTH RATE = "; 

225 PRINT I NT (G* 10000+0. 5) /100; " 7." 

230 PRINT 

239 REM - CALCULATE AVERAGE ANNUAL GROWTH FACTOR 

240 S=EXP(T/N-A*(N-1>/2) 

250 PRINT "(ENTER 0 TO END PROGRAM)" 

259 REM -- INPUT YEAR NUMBER 

260 PRINT "PROJECTED SALES FOR YEAR"; 

270 INPUT Y1 

279 REM - TEST FOR END OF PROGRAM 

280 IF Y1=0 THEN 320 

289 REM - CALCULATE PROJECTED SALES FIGURE 

290 S1 =S*(1+G>^(Yl-1) 

299 REM - ROUND OFF, PRINT 

300 PRINT " 

305 PRINT INT(S1*100+0.5)/100 

309 REM - RETURN FOR MORE DATA 

310 GOTO 260 
320 END 


II » 
7 
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Federal Withholding Taxes 


This program calculates the amount of federal income and FICA taxes withheld from one’s earnings. 
You must provide employee information regarding marital status, the number of exemptions claimed, 
the amount of taxable pay, and year-to-date taxable pay. 

The number of pay periods per year is established at line 80. If your pay period is other than monthly, 
you must alter this statement to set N equal to the number of pay periods per year. 

There is a considerable amount of tax information which may change from year to year. The values 
listed in the data tables at lines 30 and 40 are among those that may need periodic revision. The annual 

values for single and married persons should be compared each year with those listed in Table 7 of the 
current IRS Circular E. 

The annual FICA rate, the FICA cutoff amount, and the annual amount of withholding allowance 
may also need revision. The values established at lines 50, 60, and 70 should also be compared to those 
listed in the current IRS circular. 

Annual rates and cutoffs are used irrespective of your actual pay period frequency. The program 
automatically adjusts them to match your pay period. 


Examples: 

Judy earns $900.00 per month. The payroll clerk is figuring her March paycheck. Judy is single and 
claims only herself as as a dependent. What amounts are withheld from her paycheck? 

Dr. Berger has earned $2600.00 this month. So far this year she has grossed $26,000.00. She is 
married and claims four dependents. What amounts will be withheld this month for the federal 
government? 


FEDERAL WITHHOLDING TAXES 


MARITAL STATUS 
WITHHOLDING TAX 


( 1=SINGLE, 
EXEMPTION 




MARRIED) 
1 



TAXABLE PAY 



900 


YTD TAXABLE PAY? 1800 
TAXABLE = $900 
INCOME TAX = $128.5 
FICA = $55.17 


MORE DATA 


( 1 =YE 



0=NO) ? 


1 


1 


MAR I TAL STATUS ( 1 =S I NGLE,2=MARR I ED)? 

WITHHOLDING TAX EXEMPTIONS? 4 

TAXABLE PAY? 2600 

YTD TAXABLE PAY? 26000 

TAXABLE = $2600 

INCOME TAX = $471.42 

FICA = $0 

MORE DATA <1-YES, 0=N0)? 0 


2 


5 GRAPHICS 0 

10 PRINT "FEDERAL WITHHOLDING TAXES" 
20 PRINT 

25 REM - THE FOLLOWING DATA CONTAINS 


FEDERAL WITHHOLDING TAXES 
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26 


REM 
REM 
28 REM 


-«~7 
:« / 


THE 1980 TAX TABLES FROM IRS 
CIRCULAR E, PERCENTAGE METHOD, 
TABLE 7 (ANNUAL PAYROLL) FOR 


REM - SINGLE PERSONS 
DATA 15, 1420, 18,3300,21,6800,26 

DATA 10200,30,14200,34,17200,39 
DATA 22500 

REM - FOR MARRIED PERSONS 
DATA 15,2400,18,6600,21,10900,24 
DATA 15000,28,19200,32,23600,37 
DATA 28900 

REM - F1 =FICA RATE AS DECIMAL 
F1=0.0613 

REM - F2-FICA CUTOFF AMOUNT 
F2=25900 


29 

30 

31 

32 

*1* o 
•_« .*• 

40 

41 

42 

49 

50 

SO 
«, M » 

60 

69 REM - W1=AMOUNT OF WITHHOLDING ALLOWANCE(ANNUAL PAYROLL) 

70 Wl=1000 

79 REM - N=NUMBER OF PAY PERIODS PER YEAR 

80 holi¬ 
es REM - LOAD THE TAX TABLE ARRAYS FROM DATA TABLES 
90 DIM FI(28) 

100 FOR 1=1 TO 28 
110 READ F 
112 FI(I>=F 
120 NEXT I 
130 PRINT 

139 REM - STATEMENTS 140 TO 210 REQUEST PERTINENT EMPLOYEE DATA 

140 PRINT "MARITAL STATUS (1=SINGLE,2=MARRIED)"; 

150 INPUT S 

160 PRINT "WITHHOLDING TAX EXEMPTIONS"; 

170 INPUT W 

180 PRINT "TAXABLE PAY"; 

190 INPUT P 

199 REM - Y=TOTAL TAXABLE PAY THIS YEAR,EXCLUDING CURRENT PAYCHECK 

200 PRINT "YTD TAXABLE PAY"; 

210 INPUT Y 

219 REM - ANNUALIZE CURRENT TAXABLE PAY, ADJUST FOR EXEMPTIONS 

220 G=P*N-W1*W 
230 T1=0 


240 
250 
260 
270 
280 
290 
300 
310 

•:-zU 

330 

340 

349 

350 
360 


REM - CALCULATE INCOME TAX 

FOR 1=2 TO 7 

X=2*I+14*<S-1)-l 

IF GOFl(X-l) THEN 330 

IF G>F1(X+l) THEN 300 

T1=T1 + (G-F1(X-1> > *F1(X-2)/100 

GOTO 330 

T1 =T 1 + (F1 ( X + l ) -F1 < X — 1 ) >*F1 ( X —2> /100 
NEXT I 

T1=T1 + (G-F1(X+1))*F1< X)/100 
REM ~ ROUND OFF TO NEAREST CENT 
T1=INT((T1/N)*100+0.5)/100 
T2-0 

REM - CALCULATE FICA 
IF Y>F2 THEN 400 
IF Y+P>F2 THEN 390 
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370 T2=INK ( P*F1)*100+0.5)/100 
380 GOTO 400 

389 REM - ROUND OFF TO NEAREST CENT 

390 T2=INT(< < F2-Y > *F1> *100+0.5)/100 

399 REM - PRINT RESULTS 

400 PRINT "TAXABLE = *";p 
410 PRINT "INCOME TAX = *";T1 
420 PRINT "FICA = $";T2 

430 PRINT 

439 REM - RESTART OR END PROGRAM? 

440 PRINT "MORE DATA <1=YES, 0=N0)"; 
450 INPUT S 

460 IF S=1 THEN 130 
470 END 
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Tax Depreciation Schedule 


This program tabulates annual depreciation amounts. You can use the sum of digits method or any 
declining balance percentage method. You must know the purchase price (initial value), salvage value at 
the end of the depreciable life, and the life of the item being depreciated. If you are doing declining 
balance depreciation, you must also know the percentage method. 


Examples: 

The Miracle Corporation put a new roof on their office building for $27,000.00. They expect to replace it 
in nine years. What would the annual depreciation amounts be, using the sum of digits? 

Heavenly Bank built a new home office building for $1.2 million. Run a tax depreciation schedule on 
the building using 150% declining balance method with a 30 year life. Assume a salvage value of 
$250,000. You will notice that the depreciation falls below straight line ($31,666.67 per year) at year 
nine. 


TAX DEPRECIATION SCHEDULE 

PURCHASE PRICE? 27000 

SALVAGE VALUE? O 

LIFE IN YEARS? 9 

ENTER 1 FOR SUM OF DIGITS, 

2 FOR DECLINING BALANCE? 1 

SUM OF DIGITS TAX DEPRECIATION 

PRICE *27000 
SALVAGE VALUE *0 
NET DEPRECIATED *27000 
LIFE 9 YEARS 


YEAR 

DEPRECIATION 

BALANCI 

1 

5400 

21600 

jL 

4800 

16800 

3 

4200 

12600 

4 

3600 

9000 

IT 

3000 

6000 

6 

2400 

3600 

7 

1800 

1800 

Ci 

1200 

600 

9 

600 

0 


MORE DATA? <1=YES, 0=N0>? 1 

PURCHASE PRICE? 1200000 
SALVAGE VALUE? 250000 
LIFE IN YEARS? 30 
ENTER 1 FOR SUM OF DIGITS, 

2 FOR DECLINING BALANCE? 2 
METHOD IN •/.? 150 
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DECLINING BALANCE TAX 
DEPRECIATION 

PRICE $ 1200000 
SALVAGE VALUE $250000 
MET DEPRECIATED $950000 
LIFE 30 YEARS 
METHOD 1507. 


YEAR 

DEPRECIATION 

BALANCE 

i 

47500 

902500 

2 

45125 

857375 

3 

42868.75 

814506.25 

4 

40725.31 

773780.94 

5 

38689.05 

735091.89 

6 

36754.59 

698337.3 

7 

34916.87 

663420.43 

8 

33171.02 

630249.41 

¥ 

4 

31512.47 

598736.94 

10 

29936.85 

568800.09 

11 

28440 

540360.09 

12 

27018 

513342.09 

ENTER •• IS ¬ 

TO CONTINUE? C 


IS 

25667.1 

487674.99 

14 

24383.75 

463291.24 

15 

23164.56 

440126.68 

16 

22006.33 

418120.35 

17 

20906.02 

397214.33 

18 

19860.72 

377353.61 

19 

18867.68 

358485.93 

20 

17924.3 

340561.63 

21 

17028.08 

323533.55 

o o 

Xi X- 

16176.68 

307356.87 

23 

15367.84 

291989.03 

24 

14599.45 

277389.58 

•- cr 
/ | 

4^i W 

13869.48 

263520.1 

26 

13176 . 01 

250344.09 

27 

12517.2 

•“ 700/. OQ 

**!•-» / OZO ■ C* 7 

oo 

11891.34 

225935.55 

29 

11296.78 

214638.77 

30 

10731.94 

203906.83 


MORE DATA? (1=YES, 0=N0)? 0 

5 GRAPHICS 0 

6 DIM W$(l) 

10 PRINT "TAX DEPRECIATION SCHEDULE" 

20 PRINT 

29 REM - ENTER INITIAL VALUE AND ROUND OFF TO NEAREST CENT 

30 PRINT "PURCHASE PRICE"; 

40 INPUT V 

50 V=INT(V*100+0.5)/100 

59 REM - ENTER END VALUE AND ROUND OFF TO NEAREST CENT 

60 PRINT "SALVAGE VALUE"; 



TAX DEPRECIATION SCHEDULE 
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70 INPUT S 

SO S—INT(S*100+0- 5>/100 

89 REM - COMPUTE AMOUNT TO DEPRECIATE 

90 D--V-S 

99 REM - ENTER LENGTH OF DEPRECIATION 

100 PRINT "LIFE IN YEARS"; 

Y 

CHOOSE DEPRECIATION METHOD 
"ENTER .1. FOR SUM OF DIGITS," 
FOR DECLINING BALANCE"; 


.1.10 INPUT 
11.9 REM - 
1.20 PRINT 
125 PRINT " 


130 INPUT X 

140 IF X=2 THEN 450 

150 IF XOl THEN 120 

158 REM - BY SUM OF DIGITS METHOD 

159 REM - R1. IS THE CUMULATIVE AMOUNT DEPRECIATED 

160 R1 —O 
170 N“1 

260 GRAPHICS 0 

PRINT " SUM OF DIGITS TAX DEPRECIATION" 
PRINT " PRICE ; V 

SALVAGE VALUE $";S 
NET DEPRECIATED V; 


“* /_ “ 


270 


' * '-*• I i 

4 .\. 


290 

291 

300 

310 

320 

o 

•-.* j *„ ..2 

-.J 

326 

327 

329 

330 
340 

349 

350 

359 

360 

369 

370 
380 


LIFE ";Y;" YEARS" 

DEPRECIATION BALANCE" 


410 

420 

430 

440 

448 

449 

450 
460 

469 

470 
479 

489 

490 
500 


PRINT " 

PRINT " 

PRINT V-S 
PRINT " 

PRINT 

PRINT "YEAR 
N=11 

FOR 1=1 TO Y 

REM - CHECK FOR FULL SCREEN (23 LINES) 

IF N/23=INT(N/23) THEN GOSUB 800 

REM - COMPUTE DEPRECIATION AND ROUND OFF TO NEAREST CENT 
R=2+D * ( Y~ I +1 ) / ( ( Y+1 > «• Y ) 

R-■ 1 NT (R+100+0. 5 > /100 

REM - ACCUMULATE DEPRECIATION 

R1=R1+R 

REM - COMPUTE BALANCE TO DEPRECIATE 
B=D-R1 

REM -• TEST FOR COMPLETE DEPRECIATION 
IF B>=0 THEN 41.0 
R1=R1+R 
B=0 

PRINT I,R," ";B 

N=N+1 

NEXT I 

GOTO 700 

REM - BY DECLINING BALANCE METHOD 
REM - ENTER DECLINING BALANCE PERCENT 
PRINT "METHOD IN 
INPUT M 

REM - CONVERT PERCENT TO DECIMAL 
M=M/100 

REM - N COUNTS THE LINES PRINTED ON EACH PAGE 

REM - R IS THE AMOUNT TO DEPRECIATE 

R=D 

GRAPHICS 0 
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570 

571 

cr“7cr 

*»#• # *toi 

580 
590 
600 
601 
610 
620 
630 
640 

642 

643 
645 

649 

650 

659 

660 
670 
675 
677 
680 
690 
700 

709 

710 
720 
730 
740 
800 
805 
810 
820 
•_.« jl •_.! 

830 

840 


DEPRECIATION 


BALANCE" 


PRINT " DECLINING BALANCE "? 

PRINT ‘ , TAX“ 

PRINT " DEPRECIATION" 

PRINT " PRICE *";V 

PRINT " SALVAGE VALUE $";S 

PRINT " NET DEPRECIATED 

PRINT V-S 

PRINT " LIFE ";Y;" YEARS" 

PR I NT " METHOD " ; M* 100; " 7." 

PR I NT 

PRINT "YEAR DEPRECIATION BALANCE" 

PRINT 
N= 11 

FOR 1=1 TO Y 

REM - COMPUTE DEPRECIATION AND ROUND OFF TO THE NEAREST CENT 

R .1 = I NT ( (R*M / Y> * 100+0. 5) / 100 

REM - ACCUMULATE REMAINING BALANCE 

R=R~R1 

PRINT I,R1," " ; R 

N=N+1 

REM -- CHECK FOR FULL SCREEN (23 LINES) 

IF N/23=INT(N/23) THEN GOSUB 800 
NEXT I 
PR I NT 

REM - RESTART OR END PROGRAM? 

PRINT "MORE DATA? (1=YES, 0=N0)"; 

INPUT X 

IF X=1 THEN 20 
END 

REM - SUBROUTINE TO WAIT FOR OPERATOR CUE TO GO TO NEXT SCREEN 
PRINT 

PRINT "ENTER 'C" TO CONTINUE"; 

INPUT W* 

PR I NT 

RETURN 

END 
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Check Writer 


This program prints a check. You must provide the date, amount, and payee of the check. The program 
translates the date and amount to words and prints providing spacing within the check. 

You should regard the program listed below as a sample of a check-writing program. Very few checks 
will conform exactly to the spacing provided in this program. The method of translating words from 
numbers is generally applicable. Spacing should be altered to conform to your own check format. 

When the program asks the question KEY RETURN WHEN READY? it is prompting you to insert a 

blank check in your printing device. The check should be set one line above the line on which the date is 
to be printed. 

Once the check is set up, key RETURN (no other entry is required) and the check will be printed. 


Example: 

Among the checks that Miracle Corporation must write are one to Osborne & Associates for $4975.89 
and one to Freida Alexander for $103.75. Print the checks using the computer. 


CHECK WRITER- 


DATE (MMDDYY)? 30881 

-(TO END PROGRAM ENTER "END" 

FIRST NAME OF PAYEE? OSBORNE 


) 


LAST NAME OF PAYEE? ASSOCIATES 


AMOUNT OF CHECK? 4975.89 


KEY RETURN WHEN READY? 


HEAVENLY BANK 

EMERYVILLE OFFICE 
4120 ASHBY AVENUE 
EMERYVILLE. CA 94601 


NO. 328 


MARCH 8 19 81 

AMOUNTS 4975.89 


PAY TO THE ORDER OF 


OSBORNE & ASSOCIATES 


FOUR THOUSAND NINE HUNDRED SEVENTY-FIVE DOLLARS AND 89 CENTS 


MIRACLE CORPORATION 

1111 COUNTRY ROAD 
COUNTRYVILLE, CA 9413.’ 


1328252158 
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CHECK WRITER 
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100 

INPUT 

D 


1 l o 

PR I NT 

"..(TO END 

PROGRAM 

111 

PRINT 

"ENTER "END')- 

_» 

120 

PRINT 

"FIRST NAME OF 

PAYEE"; 

130 

INPUT 

FT 


1 35 

PRINT 



139 

REM - 

END PROGRAM? 


140 

IF FT-- 

-"END" THEN 790 

150 

PR I NT 

"LAST NAME OF 

PAYEE"? 

1 60 

INPUT 

LT 


165 

PRINT 



170 

PR I NT 

"AMOUNT OF CHE 

ck "; 

180 

INPUT 

A 


185 

PRINT 




i< 


- INSERT BLANK CHECK IN PRINTING DEVICE, 

- KEY RETURN WHEN READY TO PRINT CHECK 
PRINT "KEY RETURN WHEN READY"; 

INPUT ZT 

REM - SEPARATE DATE INTO MONTH, DAY, YEAR FIGURES 


, " ; D3 

REM - PRINT DATE TWICE; FIRST TIME FOR SHADED BOX 


188 REM 

189 REM 

190 
200 

209 

210 D1=INT(D/10000) 

220 D2=INT((D-D1*10000)/100) 

230 D3=INT(D-< D1 *100+D2> *100) 

235 D3--D3+1900 

240 RESTORE 

241 REM - READ THROUGH DATA TO CORRECT MONTH 

242 FOR K=1 TO 27+D1 

243 READ XT- 

244 NEXT K 

259 REM - PRINT DATE 

260 PRINT #1,,, XT; " "; D2; “ 

269 

270 PRINT #1,> , "T" ; A 
280 PRINT #1,,," " ; A 
290 PRINT #1 
300 PRINT # 3,FT;" "?LT 
310 PRINT #1 

319 REM - IS AMOUNT OF CHECK VALID? 

320 IF AC-0 THEN 770 
330 A1=A 

339 REM - AMOUNT IN THOUSANDS? 

340 N1=INT(A1/1000) 

349 REM - CAN'T PRINT AMOUNT OVER 99999.99 

350 IF N1>99 THEN 770 
360 IF N1=0 THEN 390 
370 GOSIJB 640 
380 PRINT #1;"THOUSAND "; 

390 A1=A1-N1*1000 

399 REM - AMOUNT IN HUNDREDS? 

400 N1—INT(A1/100) 

410 IF N1=0 THEN 440 
420 GOSUB 640 
430 PRINT #1;"HUNDRED “; 

440 A1=A1-N1*100 

449 REM AMOUNT IN ONES OR TENS? 

450 N1=INT(A1) 
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460 
470 
480 
490 
500 
51 o 

519 

520 

529 

530 
540 
550 

559 

560 

569 

570 
580 


600 
610 
620 

629 

630 

639 

640 

650 

651 

652 

653 
670 
680 
690 
700 

710 

711 

712 

713 
720 

730 

731 

733 

750 

7S'-> 

760 


IF N1>0 THEN 490 
IF A>=1 THEN 500 
GOTO 510 
GOSUB 640 

PRINT #1?"DOLLARS "; 

A1 = A1 —N1 

REM - ANY CENTS? 

IF At<0.01 THEN 600 

REM - IF AMOUNT IS CENTS ONLY, DON'T PRINT 
IF ACl THEN 550 
PRINT #1;"AND 
A1 = INT < A1*100 >+0.5/100 

REM - CENTS ARE PRINTED IN NUMERIC FORM 
PRINT #1:INT(A1);" CENTS" 

REM SPACE OFF OF CHECK 

PRINT #1 

PRINT #1 

PRINT #1 

PRINT #1 

PRINT #1 

PRINT #1 

REM - RESTART PROGRAM 
GOTO 120 

REM - SUBROUTINE TO GET WORDS FOR NUMBERS 

IF N1<21 THEN 730 

RESTORE 

FOR K=1 TO <N1-20)/10+20 
READ X* 

NEXT K 
PRINT #i;x$; 

A3=N1-INT(N1/10)*10 
IF A3=0 THEN 760 
PRINT #1;"-"? 

RESTORE 

FOR K=1 TO A3 

READ X$ 

NEXT K 
GOTO 750 
RESTORE 
FOR K=1 TO N1 
READ X* 

NEXT K 

PRINT #l;X*;" 

REM - END OF SUBROUTINE 
RETURN 


AND 


770 PRINT , " #■*■*•** VO ID*****" 
780 GOTO 570 
790 END 
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Recipe Cost 


This program calculates the cost and the cost per serving of a single recipe. For each ingredient you must 
provide the purchase price, the amount purchased, the amount used in the recipe, and the number of 
recipe units per purchase unit. 


Example: 


Listed below is a recipe for strawberry shortcake. Calculate the cost of the recipe and the cost per serving. 
What would the cost per serving be if one cake serves 12? The conversion factors and price per 
ingredient are supplied. 


Strawberry Shortcake 

8 servings 


3 c. flour 

2.5 c./lb 

$1.59 

5 lb. 

3% tsp. baking powder 

15 tsp./oz. 

0.43 

4 oz. 

14 c. sugar 

2 c./lb. 

1.24 

5 lb. 

1 % tsp. salt 

6 tsp./oz. 

0.29 

1 lb. 

l/ 2 c. butter 

2 c./lb. 

1.49 

1 lb. 

1 egg 

I2/doz. 

0.75 

1 doz. 

% c. milk 

4 c./qt. 

0.40 

1 qt. 

3 pt. strawberries 

_ 

0.49 

1 pt. 

14 pt. whipping cream 

— 

0.59 

Vi pt- 


RECIPE COST 

NUMBER OF INGREDIENTS? 9 


INGREDIENT t: 

STORE COST FOR BULK UNIT? 1.59 
NUMBER OF UNITS IN BULK? 5 
RECIPE UNITS PER BULK UNIT? 2.! 
NUMBER OF RECIPE UNITS NEEDED? 


INGREDIENT 2s 

STORE COST FOR BULK UNIT? 0.43 
NUMBER OF UNITS IN BULK? 4 
RECIPE UNITS PER BULK UNIT? 15 
NUMBER OF RECIPE UNITS NEEDED? 


* - 1 . —a 

« -Cm 


">er 


• j > 

• I » 


INGREDIENT 
STORE COST FOR BULK UNIT? 1.24 
NUMBER OF UNITS IN BULK? 5 
RECIPE UNITS PER BULK UNIT? 2 
NUMBER OF RECIPE UNITS NEEDED? 0.25 


INGREDIENT 4: 

STORE COST FOR BULK UNIT? 0.29 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 96 
NUMBER OF RECIPE UNITS NEEDED? 


1 


•**>*=* 
■ 2- 
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INGREDIENT 5: 

STORE COST FOR BULK UNIT? 1.49 
NUMBER OF UNITS IN BULK? .1 
RECIPE UNITS PER BULK UNIT? 2 
NUMBER OF RECIPE UNITS NEEDED? 0.5 


INGREDIENT 6: 

STORE COST FOR BULK UNIT? 0.75 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 12 
NUMBER OF RECIPE UNITS NEEDED? 


1 


INGREDIENT 7: 

STORE COST FOR BULK UNIT? 0.4 

NUMBER OF UNITS IN BULK? 1 

RECIPE UNITS PER BULK UNIT? 4 

NUMBER OF RECIPE UNITS NEEDED? 0.66666* 


INGREDIENT 8: 

STORE COST FOR BULK UNIT? 0.49 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 1 
NUMBER OF RECIPE UNITS NEEDED? 3 

INGREDIENT 9s 

STORE COST FOR BULK UNIT? 0.59 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 1 
NUMBER OF RECIPE UNITS NEEDED? 1 


NUMBER OF SERVINGS? 8 


TOTAL COST FOR ONE RECIPE 
COST PER SERVING = TO.38 

CHANGE NUMBER OF SERVINGS 
<1=YES, 0=N0)? 1 
NUMBER OF SERVINGS? 12 


$3 


TOTAL COST FOR ONE RECIPE 
COST PER SERVING = TO.25 


= T3 


CHANGE NUMBER OF SERVINGS 
<1=YES, 0=N0)? 0 


5 GRAPHICS 0 

10 PRINT "RECIPE COST" 


15 PRINT 

19 REM - STATEMENTS 

20 PRINT "NUMBER OF 
30 INPUT N 


30 TO 180 REQUEST I. 
INGREDIENTS"; 


39 REM - LOOP TO REQUEST DATA FOR EACH 

40 FOR 1=1 TO N 
50 PRINT 


ISER INPUT 

INGREDIENT 




RECIPE COST 
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60 PRINT “INGREDIENT " ? I ? ":“ 

70 PRINT “STORE COST PGR BULK UNIT" 5 
80 INPUT C 

90 PRINT “NUMBER OF UNITS IN BULK"? 

100 INPUT U 

110 PRINT "RECIPE UNITS PER "? 

111 PRINT "BULK UNIT"? 

120 INPUT F 

130 PRINT "NUMBER OF RECIPE "? 

131 PRINT "UNITS NEEDED"? 

140 INPUT R 

149 REM - SUM COST OF EACH INGREDIENT PER AMOUNT USED 

150 P=P+C/U/F*R 
160 NEXT I 

165 PRINT 

170 PRINT "NUMBER OF SERVINGS"? 

ISO INPUT S 
190 PRINT 

199 REM - ROUND OFF COSTS TO NEAREST CENT, PRINT RESULTS 

200 PRINT "TOTAL COST FOR "? 

201 PRINT "ONE RECIPE = *"? 

205 PRINT INT(P*100+0.5>/100 

210 PRINT "COST PER SERVING = *"? 

215 PRINT INT<P/S*100+0.5>/100 
220 PRINT 

229 REM - CALCULATE ALTERNATIVE PRICE PER SERVING 

230 PRINT "CHANGE NUMBER OF SERVINGS" 

231 PRINT "(1=YES, 0=N0>"? 

240 INPUT N 

250 IF N=1 THEN 170 
260 END 


OPTION 

As you become familiar with the operation of this program you may wish to shorten it by entering the 
information required for each ingredient on one line. The necessary program changes are listed following 
the example below. 


Example: 

Calculate the cost per serving of strawberry shortcake in the previous example when it is served without 
cream. 

RECIPE COST 

NUMBER OF INGREDIENTS? 8 

INGREDIENT 1: 

? 1.59,5,2.5,3 
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INGREDIENT 2: 
O * 4c* ? 4 > 151 8 

INGREDIENT 3: 
? 1.24,5,2,0. 

INGREDIENT 4: 
? 0 . 29 , 1 , 96 , 1 

INGREDIENT 5: 

: -1 1.49, 1,2, O. 


INGREDIENT 6: 
? 0.75,1,12,1 





er 

. i 


INGREDIENT 7: 

? 0.4,1,4,0.6666667 

INGREDIENT 8: 

? 0.49,1,1,3 


NUMBER OF 


SERVING 



o 

II 


TOTAL. COST FOR ONE RECIPE = 
COST PER SERVING = TO. 3 



41 


CHANGE NUMBER OF SERVINGS 
(i=YES, 0=N0)? 1 
NUMBER OF SERVINGS? 12 


TOTAL COST FOR ONE RECIPE = $2.41 
COST PER SERVING = $0.2 

CHANGE NUMBER OF SERVINGS 
(1=YES, 0=N0>? 0 


1 REM - OPTION 55-70 

5 GRAPHICS 0 

10 PRINT "RECIPE COST" 


50 PRINT 

55 REM - 

56 REM - 

57 REM - 

58 REM - 

59 REM - 

60 PRINT 


ENTER C»U»F»R 
WHERE C«COST 

U*NUMBER OF 

SI HF*iRll^tl|jJ 

R=NUMBER RECIPE UNITS CALLED FOR 
" INGREDI ENT " ? I ? " s « 

ii r- ri ' 



70 INPUT C,U,F,R 
149 REM - SUM COST OF EACH INGREDIENT PER AMOUNT USED 


260 END 
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_ _ mmm B _ Courtesy: Robert Irving 

Survey Check CMap Check) 


This program calculates the error of closure and area of a plot for which a traverse of the perimeter is 
available. The program will also calculate how far North and East the end of an open traverse is from its 
origin (the Northing and Easting). The local coordinates of the origin can be entered for an open 
traverse. Negative values of Northing and Easting are South and West, respectively, of the 0,0 origin of 
the survey. 

The individual legs of the traverse may be either straight lines or arcs of circles. To compute the 
traverse, you must have the bearing and length of each straight leg. You also need the radius, bearing of 
chord, and length of chord (or radius, arc measure, and bearing of a tangent) for each curved leg. 

For a closed survey, pick any intersection of legs as a starting point, and number the lines and arcs, 
starting with one, in a clockwise direction around the perimeter. If any arc is 180 degrees or more, it must 
be broken into smaller arcs, each less than 180 degrees. 

By convention, surveyors measure bearings East and West of North and South, as shown in the 
following Figure. This convention was established in the days before computers, so that trigonometric 
functions could be easily looked up in tables not exceeding 90 degrees. For each leg, you must enter the 
quadrant number and the degrees, minutes, and seconds East or West of the North-South axis. The 
program will indicate the direction of the leg (e.g., SW), and will convert the quadrant, degrees, etc. to 
an azimuth angle. Azimuth is measured clockwise from North to 360 degrees. 


N 



S 


A curved leg, or arc, is defined by two auxiliary legs, each of which is a radius of the arc. The bearing 
of the first auxiliary leg is the direction of the radius from the first encountered end of the arc to the 
center of the arc. You can compute this bearing from the bearing of the arc’s tangent at that point, since 
the radius is perpendicular to the tangent. The survey may show the bearing of the tangent. If not, you 
can compute it by adding one half the angular extent of the arc to the bearing of the arc’s chord, as 
shown in the next figure. 









182 


SOME COMMON BASIC PROGRAMS - ATARI 


The bearing of the second radius is from the center of the arc to the other end, and the distance is 

entered as a negative number to signal to the computer that this and the prior leg are not perimeter legs 
but auxiliary legs of an arc. ’ 

The program asks you for the bearing and distance of each leg by number. Legs are entered in sets of 
ten (or less). Following the last entry in a set, you can correct any leg in the set. You must enter both 

auxiliary legs of an arc in the same set. You can enter a bearing of zero to end one set, and then enter 
more legs on the next set. 

When you have corrected a set, a traverse table is printed for the set. This includes each leg number, 
direction, azimuth angle, and distance, and incremental and cumulative Northing and Easting. The 
cumulative Northing and Easting after the last leg on a closed survey gives the error of closure. Arc 

angle, radius, sector area, chord length, and tangent length are printed between the two auxiliary legs of 
each curved leg. 

Following the printout of the last leg of a closed survey, the area of the plot will be printed, both in 
square feet and in acres. The area computed is very accurate provided two conditions are met: 

1. The error of closure is small (0.01 feet is usual for a house lot), and 

2. The area is sufficiently small that curvature of the earth does not become significant. Surveys 
covering several tens of miles have to account for this latter factor. 


Example: 


The figure below illustrates the boundaries of a lot with one curved side. The leg numbers are circled. 
Bearings and distances are shown for each leg. Find the error of closure and lot area. 


1 . 

2 . 

3. 

4. 

5. 

6 . 
7. 


S39°0'0"E 

149.83 

S39°0'0"E 

50.00 

N85°23'53"W 

50.00 

N85°23'53"W 

114.32 

N1°5'0"E 

132.78 

N46°0'0"E 

14.00 

S89°0'0"E 

25.46 



© 


© 


MAP CHECK 
OPEN (1) OR 
NEXT SET OF 
LEG NO. 1 


CLOSED (O) 
LEGS: 


SURVEY? O 


QUADRANT,DEGREES, 
? 2,39,O,O 


MINUTES,SECONDS 


DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 149. 


o o 




SURVEY CHECK (MAP CHECK) 
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LEG NO. 2 

QUADRANT,DEGREES, MINUTES,SECONDS 


? 2,39^ O»O 
DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 50 
LEG NO. 3 

QUADRANT,DEGREES, MINUTES,SECONDS 

? 4,85,23,53 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? -50 


LEG NO. 4 

QUADRANT,DEGREES, MINUTES,SECONDS 

? 4,85,23,53 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 114 




LEG NO. 5 

QUADRANT,DEGREES, MINUTES,SECONDS 

? 1 , 1 , 5 , 0 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 132. 


7 


o 


LEG NO. /> 

QUADRANT,DEGREES, MINUTES,SECONDS 

? 1,46,0,0 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 14 
LEG NO. 7 

QUADRANT,DEGREES, MINUTES,SECONDS 

? 2,89,0,0 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 25.46 
LEG NO. 8 

QUADRANT,DEGREES, MINUTES,SECONDS 

? 0 , 0 , 0,0 

CORRECT WHICH LEG IN THIS SET 
(0=N0 MORE CHANGES)? 0 
ORIGIN 0 / 0 


LEG/DIR. 1 / 

AZIMUTH/DIST. 

DEL N/DEL E 
NORTHING/EASTING 


ob. 


141 0 0 / 149.83 
-116.43968 / 94.29119616 
-116.43968 / 94.29119616 


LEG/DIR. 2 / 

AZIMUTH/DIST. 

DEL N/DEL E 
NORTHING/EASTING 


SE 

‘ 141 0 0 / 50 

• -38.85726511 / 31.46606025 
= -155.296945 / 125.757256 


PRESS -RETURN- FOR NEXT SET OF LEGS? 
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ARC: 46 23 53 

:= 50 A= 2024.497063 


39.39263084 T= 54.3985565 


LEG/DIR. 3 / 

AZIMUTH/DIST. 

DEL N/DEL E 
NORTHING/EASTING 

LEG/DIR. 4 / 

AZIMUTH/DIST. 

DEL N/DEL E 
NORTHING/EASTING 


NW 


274 36 7 / 50 

4.01158153 / -49.83881252 

-151.285364 / 75.918444 


NW 


274 36 7 / 114.32 
9.17208002 / -113.95146 
-142.113284 / -38.033016 


PRESS -RETURN- FOR NEXT SET OF LEGS? 


LEG/DIR. 5 / 

AZIMUTH/DIST. 

DEL. N/DEL E 
NORTHING/EASTING 

LEG/DIR. 6 / 

AZIMUTH/DIST. 

DEL N/DEL E 
NORTHING/EASTING 


NE 


1 4 60 / 132.78 
132.756265 / 2.51041923 
-9.357019 / -35.52259677 


NE 

46 0 0 / 14 
9.72521719 / 
0 . 36819319 / 


10.07075725 
-25.45183952 


PRESS -RETURN- FOR NEXT SET OF LEGS? 


LEG/DIR. 7 / 

AZIMUTH/DIST. 

DEL N/DEL E 
NORTHING/EASTING 


SE 

91 0 0 / 25.46 

- 0 . 4443338241 / 25 . 45612243 

- 0 . 0761 3 5 6341 / 4 . 2 8291E- 0 3 


ANY MORE LEGS (1-YES, 0=N0)? 0 
PLOT AREA IS 13347.6721 SO. FT. 

PLOT AREA IS 0.30642039 ACRES 


5 GRAPHICS 0 

6 DIM W$ <1) 

10 REM - SURVEY CHECK 

12 REM - FOR CLOSED SURVEY FOLLOW TRAVERSE CLOCKWISE 

13 REM - KEEP PLOT TO RIGHT OF EACH PERIMETER LEG 
.1.4 REM - COMPUTE AUXILIARY LEGS AS RADII AT EACH 

15 REM - END OF ARC. ARCO80 DEGREES 

16 REM 

19 REM - KO = NUMBER OF LEGS PER SET 

20 i<0= 10 

30 DIM B < 10),L<10 > 

49 REM - R IS THE CONVERSION FACTOR FOR DEGREES TO RADIANS 

50 R=0.0174532925 

52 REM - VALUE OF PI; P1=3.14159265 

55 P1=3.14159265 

60 PRINT "MAP CHECK":PRINT 

70 PRINT "OPEN (1) OR CLOSED (O) SURVEY"; 

80 INPUT F 




SURVEY CHECK (MAP CHECK) 
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90 IF F=0 THEN 120 

100 PRINT "ORIGIN: NORTHING, EASTING"; 

110 INPUT N,E 
120 PRINT 

122 PRINT "NEXT SET OF LEGS:" 

124 PRINT 

125 G=H 

130 FOR K~ 1 TO KO 

139 REM ~ INPUT BEARING AND DISTANCE FOR NEXT LEG 

140 GOSUB 2000 

149 REM -- IF BEARING IS 0, END INPUT FOR THIS SET 

150 IF Q=0 THEN 170 
155 G=G+1 

160 GOTO 240 

169 REM - ZERO UNUSED LEGS IN THIS SET 

170 IF K--KO THEN 230 
ISO FOR J=K+1 TO KO 
190 B(J)=0 

200 L(J)=0 
210 NEXT J 
230 K~KO 
240 NEXT K 

260 PRINT "CORRECT WHICH LEG IN THIS SET" 

261 PRINT " <0=N0 MORE CHANGES)"; 

270 INPUT K 

279 REM - NO CHANGES IF 0 INPUT 

280 IF K-0 THEN 310 
285 K=K-H 

290 GOSUB 2000 
300 GOTO 260 

309 REM - COMPUTE VALUES AND PRINT TRAVERSE TABLE 

310 GRAPHICS 0 
320 PRINT "ORIGIN 
340 PRINT 


II » 


?n;" / ";E 


350 

360 

361 

369 

370 
380 


3 O O 

"»it r*« 


FOR K=1 TO KO 
L 1=L( K) 

Z = Z +1 

REM - CHECK FOR ARC 
IF LICO THEN 1100 
IF L1 ~0 THEN 900 

REM - COMPUTE NORTHING/EASTING INCREMENT 
REM - DEGREES TO RADIANS) 

L=L(K)*CGS(B < K)*R) 

0-L(K)*SIN(B(K)*R) 

N—N+L. 

F.-E+D 

REM - INCREMENT AREA 
A=A-E*L+N*D 

PRINT "LEG/DIR. ";H+K;“ / "; 

REM - FROM BEARING, DETERMINE DIRECTION 
IF B(K)=0 THEN 470 
GOTO 490 
PRINT "N" 


< CONVERT BEARINGS 


FROM 
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500 GOTO 530 
510 PRINT "ME" 

5.20 GOTO 330 

530 IF B<K)=90 THEN 550 

540 GOTO 570 

550 PRINT "E" 

560 GOTO 830 

570 IF B ( K) <" 1 SO THEN 590 
580 GOTO 610 
590 PRINT "SE" 

600 GOTO 330 

610 IF B(K) = 180 THEN 630 
620 GOTO 650 
630 PRINT "S" 

640 GOTO 830 

650 IF BOO <270 THEN 670 
660 GOTO 690 
670 PRINT "SW" 

680 GOTO 830 

690 IF BOO =270 THEN 710 
700 GOTO 730 
710 PRINT "W" 

720 GOTO 830 

730 IF BOO<360 THEN 750 
740 GOTO 770 
750 PRINT "NW" 

760 GOTO 830 

770 IF BOO =360 THEN 790 
780 GOTO 810 
790 PRINT "N" 

800 GOTO 330 
810 B 00=8 00-360 
820 GOTO 450 

829 REM - BREAK BEARING INTO DEGREES, MINUTFS, SFGONDS 

830 D1=INT (BOO ) 

840 M1 = < B <K)-D1)*60 
850 M=INT(Ml) 

860 S=INT < < M1-M)*60+0.5) 

870 PRINT "AZIMUTH/DIST. - '•; 

872 PRINT D1; " " ; M? " " ; S; 11 / " ; L <K) 


880 

PRINT 

II 

831 

PR I NT 

L 

882 

PR I NT 

II 

o o o 

1..1 o '~t 

PRINT 

N 

,~I, c~ 

boD 

PR I NT 


890 

L (K) =1 

LI 

891 

IF Z<: 

2 

895 

PRINT 

II 

896 

INPUT 

W 

897 

PR I NT 


O Cl Q 

Z=0 


900 

NEXT 1 

< 

910 

H=G 


920 

PR I NT 

"i 

930 

INPUT 

u 



SURVEY CHECK (MAP CHECK) 
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940 IF HOC THEN 120 

949 REM - NO AREA FOR OPEN SURVEY 

950 IF FOO THEN 1000 
960 A=ABS< A/2) 

970 PRINT "PLOT AREA IS ";A;" SQ. FT." 

980 PRINT 

990 PRINT “PLOT AREA IS "?INT(A/43560#100000000+0.5)/100000000; " ACRES" 
1000 GOTO 2280 

1099 REM - CALCULATE CURVED LEG AND PRINT ON TRANSVERSE TABLE 

1100 C-ABS(B<K)-B <K-1)> 

1110 C=ABS< 180-0 

1120 D=-L1 
1130 L< K)=D 
1140 A1-C/180 *P1*D*D 
1150 C1=2*D*SIN < C/2*R) 

1160 T=D*< SON < C/2*R)/COS < C/2*R)) 

1170 B9-B < K) -B (K-1 ) 

1180 IF B9C-180 THEN 1210 

1190 IF B9>180 THEN 1210 

1200 IF B9>0 THEN 1230 

1210 A=A+A1 

1220 GOTO 1240 

1230 A=A--A1 

1240 D1 = INT < C) 

1250 M1 = (C--D1 >*60 
1260 M=INT<Ml) 

1270 S=INT < < M1~M > *60+0.5> 

1280 PRINT " ARC: "; 

1281 PRINT D1S" ";m;" ";s 

1282 PRINT "R= "SD?" A= “;A15 
1290 PRINT " C= "SCI?" T= "5T 
1300 PRINT 

1320 GOTO 390 

1999 REM - INPUT DATA FOR ONE LEG 

2000 B < K)-0 
2010 L. < K) =0 


2020 

PRINT 1 

"LEG NO. "* H+K 

2021 

PRINT ' 

"QUADRANT,DEGREE 

2022 

PRINT 1 

"MINUTES,SECONDS 

2030 

INPUT t 

3,D,M,S 

2040 

IF Q-0 

THEN 2270 

2050 

IF Q>4 

THEN 2020 

2060 

IF GKO 

THEN 2020 

2070 

IF D<0 

THEN 2020 

2080 

IF M<0 

THEN 2020 

2090 

IF SCO 

THEN 2020 

2100 

B < K)=D+ < M+S/60)/60 

2110 

IF B (K 

>>90 THEN 2020 

21 20 

IF Q~1 

THEN 2220 

2130 

IF Q-2 

THEN 2150 

2140 

GOTO 2 

170 

2150 

B < K> = 180—B< K) 

2160 

GOTO 2220 

2170 

IF Q=3 

THEN 2190 


2180 GOTO 2210 
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2190 
2200 
2210 
2215 
2220 
222 1 
2230 

x- «r~ V 1 

2234 

2240 

2250 

2270 

2280 


B<K>«130+B(K) 

GOTO 2220 
IF Q<>4 THEN 2220 
B (. K > =360-B (K) 

PRINT "DISTANCE " 

PRINT "(NEGATIVE IF OUTWARD RAD11 IS)"; 

INPUT X 

L(K)=X 

PRINT 

IF L.(K)>0 THEN 2270 

IF ABS<L < K) ) OABS (L (K— 1 ) ) THEN 2220 

RETURN 

END 


ATARI 
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Day of the Week 


This program calculates the day of the week that a given date falls on. It will figure, for example, that 
December 25, 1985 will be a Wednesday. 

You must enter the date in numeric form and in the order of month, day, year. September 12,1975 
will be entered as 9,12,1975, making certain that commas, not slashes or dashes, separate the figures. 


Examples: 

Cindy’s birthdate is March 4,1953. On what day was she born? 

Uncle Lon has an appointment on September 30,1977. What day does that fall on? 

DAY OF THE WEEK 

(ENTER 0,0,0 TO END PROGRAM) 

MONTH,DAY,YEAR? 3,4,1953 
WEDNESDAY 


MONTH,DAY,YEAR? 9,30,1977 
FRIDAY 


50 INPUT 

S Q 


MONTH,DAY,YEAR? 0, 0, 0 
5 GRAPHICS 0 

10 PRINT "DAY OF THE WEEK" 

20 PRINT 

29 REM -• REQUEST USER INPUT 

30 PRINT "(ENTER 0,0,0 TO END PROGRAM)" 

40 PRINT "MONTH,DAY,YEAR "" 

M, D, Y 

TEST FOR END OF PROGRAM 
60 IF MOO THEM 100 

70 IF DOO THEN 100 

80 IF YOO THEN 100 

90 GOTO 360 

99 REM - NEED TO ADJUST INPUT FOR CALCULATIONS? 

100 IF M>2 THEN 130 

109 REM - ADJUST INPUT 

110 M--M+12 
120 Y--Y--1 

129 REM ~ CALCULATE DAY NUMBER 

130 N=D+2*M+1 NT ( 0.6* < M+1> > +Y+1 NT ( Y/4) --1 NT ( Y/ 100 ) +1 NT ( Y/400) +2 
140 N=INT((N/7-INT(M/7))*7+0.5) 

149 REM - FIND CORRECT DAY NUMBER, TRANSLATE TO DAY, PRINT 

150 IF N>0 THEN 180 
160 PRINT "SATURDAY" 

170 GOTO 340 

130 IF N>1 THEN 210 
190 PRINT "SUNDAY" 

200 GOTO 340 
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210 IF N>2 THEN 240 
220 PRINT "MONDAY" 

230 GOTO 340 

240 IF N>3 THEN 270 

250 PRINT "TUESDAY" 

260 GOTO 340 

270 IF N>4 THEN 300 

280 PRINT "WEDNESDAY" 

290 GOTO 340 

300 IF N>5 THEN 330 

310 PRINT "THURSDAY" 

320 GOTO 340 
330 PRINT "FRIDAY" 

340 PRINT 

349 REM - RESTART PROGRAM 

350 GOTO 40 
360 END 
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Days Between Two Dates 


This program calculates the number of days between two given dates. Leap years are taken into account. 

The program assumes there is one day between today and tomorrow. For instance, there are two days 
between March 1 and March 3 of the same year. 

There are a few precautions to assure the proper use of this program. First, you must be certain to 
enter the earlier date first. Second, dates must be entered in number form (3, not MARCH) and in the 
correct order (month, day, year, i.e., 3,17,1976). Commas, not slashes or dashes, must separate the 
figures. Third, the year must not be abbreviated (1976, not 76), even if both dates are in the same 
century. Finally, the month entered must not be greater than 12 and the days no greater than the 
number of days in the particular month. If such is the case, the message UNREAL DATE is printed to 
alert you to the fact that an unreal date (such as 14,32,1975) has been entered. An incorrect answer is 
likely to result. 


Example: 

John’s birthdate is August 8,1951. How many days old will he be on his 30th birthday? 


DAYS BETWEEN TWO DATES 

FIRST DATE? 8,8,1951 
SECOND DATE? 8,8,1981 
DIFFERENCE = 10958 DAYS 

MORE DATA (1=YES, 0=N0>? 0 


5 GRAPHICS 0 

10 PRINT "DAYS BETWEEN TWO DATES" 

20 PRINT 

29 REM - STATEMENTS 30 TO 60 REQUEST USER INPUT 

30 PRINT "FIRST DATE"; 

40 INPUT M1,D1,Y1 

50 PRINT "SECOND DATE"; 

60 INPUT M2,D2,Y2 

69 REM - SET VARIABLES TO BE USED IN SUBROUTINE 

70 M-Ml 
80 D=D1 
90 Y=Y1 

4 aa lO 0*t*n 

1 Uv Z 

109 REM - SAVE COMPUTED NUMBER OF DAYS IN N 

110 N=A 

119 REM - SET VARIABLES TO BE USED IN SUBROUTINE 

120 M=M2 
130 D=D2 
140 Y-Y2 

150 GOSUB 230 

159 REM - CALCULATE DIFFERENCE AND PRINT 

160 N=A-N 

170 PRINT "DIFFERENCE = ";N;" DAYS" 
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INPUT REQUIRED 


180 PRINT 

189 REM - RESTART OR END PROGRAM' 1 USER 

190 PRINT "MORE DATA <1=YES, 0=N0)"; 

200 INPUT X 

210 IF X=1 THEN 20 

219 REM - END PROGRAM 

220 GOTO 460 

227 REM - SUBROUTINE TO COMPUTE NUMBER OF DAYS FROM 0/0/0/ TO M/D/Y 

228 REM - START WITH TEST FOR UNREAL DATE 

229 REM - GO TO CORRECT TEST DEPENDING ON NUMBER OF DAYS IN THE MONTH 

230 ON M GOTO 260,280,260,340,260,340,260,260,340,260,840,260 
240 PRINT "UNREAL. DATE" 

249 REM - STOP CALCULATIONS, RETURN TO MAIN PROGRAM 

250 RETURN 

259 REM - MONTH HAS 31 DAYS 'IIS’ 

260 IF D>31 THEN 240 
270 GOTO 350 

279 REM - MONTH IS FEBRUARY; A LEAP YEARS 

280 IF Y/40INT<Y/4) THEN 310 
290 IF Y/400=INT(Y/400) THEN 320 
300 IF Y/l OOOI NT <Y/100) THEN 320 

309 REM - NOT A LEAP YEAR; MONTH HAS 28 DAYS 

310 IF D>28 THEN 240 

319 REM - A LEAP YEAR; MONTH HAS 29 DAYS 

320 IF D>29 THEN 240 

330 GOTO 350 slSt;® 

339 REM - MONTH HAS 30 DAYS 

340 IF D>30 THEN 240 

-■49 REM - TABLE OF NUMBER OF DAYS FROM FIRST OF YEAR’ TO FIRST OF FACH 
MONTH 

350 DATA 0,31,59,90,120,151,181,212 

351 DATA 243,273,304,334 

360 RESTORE 

361 FOR Q=1 TO M 

362 READ A 

363 NEXT Q 

369 REM -• GET NUMBER OF DAYS FROM JANUARY 1 TO FIRST OF MONTH FROM DATA 
TABLE 

379 REM - COMPUTE NUMBER OF DAYS FROM 0/0/0 TO M/D/Y 

380 A=A+Y*365+INT(Y/4)+ D+1-INT(Y/1 00)+INT(Y/400 ) 

389 REM - POSSIBLY A LEAP YEAR? 

390 IF I NT (Y/4 ) OY / 4 THEN 450 

409 REM - CONTINUE TEST FOR LEAP YEAR 

410 IF Y/400=INT<Y/400) THEN 430 
420 IF Y/l00=INT(Y/l00) THEN 440 

428 REM - IF MONTH IS JANUARY OR FEBUARY, ADJUST CAl Cl ATED NUMBER np 
DAYS 

430 IF M>2 THEN 450 
440 A=A~1 

449 REM - END OF SUBROUTINE, RETURN TO MAIN PROGRAM 

450 RETURN 
460 END 
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OPTION 

To shorten this program you may wish to omit the test for unreal dates. It should be noted that if a 
month of more than 12 is entered when this test is omitted, an input error will result. The program lines 
which may be deleted are listed following the example below. 


Example: 

How many days are there between July 4 and Christmas? 


DAYS BETWEEN TWO DATES 

FIRST DATE? 7,4,1977 
SECOND DATE? 12,25,1977 
DIFFERENCE = 174 DAYS 

MORE DATA <1=YES, 0«N0>? 0 

1 REM - OPTION 100, 150, 228-340 

5 GRAPHICS 0 

10 PRINT "DAYS BETWEEN TWO DATES" 

* 

90 Y=Y1 

loo-iititiMMi 

109 REM - SAVE COMPUTED NUMBER OF DAYS IN N 

140 Y=Y2 
150 GQS'UB 350 

159 REM - CALCULATE DIFFERENCE AND PRINT 

227 REM - SUBROUTINE TO COMPUTE NUMBER OF DAYS 


FROM 0/0/0/ TO 


349 REM - TABLE OF NUMBER OF DAYS FROM FIRST OF YEAR TO FIRST 
MONTH 


M/D/Y 
OF EACH 


450 RETURN 
460 END 
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Anglo to Metric 


This program converts a measure given in anglo units to metric units. The conversions available in this 
program are as follows: 

1 Inches to centimeters 

2 Feet to centimeters 

3 Feet to meters 

4 Yards to meters 

5 Miles to kilometers 

6 Teaspoons to cubic centimeters 

7 Tablespoons to cubic centimeters 

8 Cups to liters 

9 Pints to liters 

10 Quarts to liters 

11 Gallons to liters 

12 Bushels to liters 

13 Pecks to liters 

14 Ounces to grams 

15 Pounds to kilograms 

16 Tons to kilograms 

17 Degrees Fahrenheit to degrees Celsius 

You must provide the value of the anglo measurement and the number of the conversion (1 -17 as 
listed above) which you wish to perform. 


Example: 

Perform the following conversions: 


8.5 

miles to kilometers 

75° 

Fahrenheit to degrees Celsius 

10 

gallons to liters 

ANGLO 

TO METRIC: 


(TO END PROGRAM TYPE 0) 

WHICH CONVERSION DO YOU NEED? 5 

VALUE TO BE CONVERTED? 8.5 


8.5 MILES = 13.6765 KILOMETERS 


WHICH CONVERSION DO YOU NEED? 17 


VALUE TO BE CONVERTED? 75 
75 DEGREES FAHRENHEIT 


WHICH CONVERSION DO YOU NEED? 11 
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VALUE TO BE CONVERTED? 10 
10 GALLONS = 37.85 LITERS 


WHICH CONVERSION DO YOU NEED? 0 
5 GRAPHICS 0 

10 PRINT "ANGLO TO METRIC" 

20 PRINT 

29 REM - ESTABLISH VARIABLES FOR 17 CONVERSION FACTORS 

30 DIM C < 17) 

39 REM -- LOOP TO ASSIGN CONVERSION FACTORS INTO CO 

40 FOR N=1 TO 17 
50 READ X 

52 C(N)=X 
60 NEXT N 

69 REM - DATA TABLE OF SEVENTEEN CONVERSION FACTORS 

70 DATA 2.540,30.480,.3048,.9144 


71 

DATA 

1.609, 

4.929, 14.78:: 

72 

DATA 

.4732, 

.9463,3.785: 

73 

DATA 

8.809, 

28. 3495, . 45; 

80 

DATA 

. 6214 



89 REM - GET NUMBER OF CONVERSON FROM PROGRAM DESCRIPTION 

90 PRINT "(TO END PROGRAM TYPE 0)" 

100 PRINT "WHICH CONVERSION "; 

101 PRINT "DO YOU NEED"; 

110 INPUT N:PRINT 

119 REM - END PROGRAM? 

120 IF N=0 THEN 540 

129 REM - CONVERSION AVAILABLE? 

130 IF N>17 THEN 100 

140 PRINT "VALUE TO BE CONVERTED"; 

150 INPUT I 
152 PRINT 

159 REM - PERFORM CONVERSION USING PROPER CONVERSION FACTOR 

160 R=I*C(N) 

169 REM - DIRECT PROGRAM TO PROPER CONVERSION UNITS, PRINT RESULTS 

170 IF N<10 THEN 175 


173 

ON N-9 GOTO 360 

175 

ON N GOTO 

180,2' 

180 

PRINT I;" 

INCHE 

190 

GOTO 520 


200 

PRINT I;" 

FEET 

210 

GOTO 520 


220 

PRINT IS" 

FEET 

■“i *”» 

w'v 

GOTO 520 


240 

PRINT I;" 

YARDS 

250 

GOTO 520 


260 

PRINT I;" 

MILES 

270 

GOTO 520 


280 

PRINT Is" 

TSP. 

290 

GOTO 520 


300 

PRINT IS" 

TBSP. 

310 

GOTO 520 


320 

F‘R I NT I; " 

CUPS 


" ;R;" CENTIMETERS" 
" ;R;" METERS" 


";R;" KILOMETERS" 

" ;R;" CUBIC CENTIMETERS" 
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70 


« 




400 


410 

420 

430 

440 

450 

460 


470 
4 SO 
490 

499 

500 

510 

511 
520 

cr o 

iL i. 

529 

530 
540 


GOTO 520 

PRINT I;" PINTS = "; R; " LITERS*' 

GOTO 520 

PRINT I;" QUARTS = ";R?" LITERS" 
GOTO 520 

PRINT I;" GALLONS = ";R;" LITERS" 
GOTO 520 

PRINT I;" BUSHELS = ";R;" LITERS" 
GOTO 520 

PRINT I?" PECKS = ";R;" LITERS" 

GOTO 520 

PRINT I;" OUNCES = ";R;" GRAMS" 

GOTO 520 

PRINT I?" POUNDS = ";R;" KILOGRAMS" 
GOTO 520 

PRINT I;" TONS = ";R?" KILOGRAMS" 
GOTO 520 


REM - CONVERT FROM DEGREES FAHRENHEIT TO CELSIUS 
R=(I-32)*5/9 

PRINT I;" DEGREES FAHRENHEIT" 

PRINT "= ";R5" CELSIUS" 

PRINT 

PRINT 

REM - RESTART PROGRAM 

GOTO 100 

END 
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Alphabetize 


This program alphabetizes a list of words or phrases. 

Numbers may be part of an alphanumeric phrase. However, they will not be put into numeric 
order unless they contain the same number of digits. Numbers with fewer digits must be justified to 
the right by prefixing zeros. Thus, if the numbers you are sorting range into the hundreds, the 
number 13 would be entered as 013. 

To save memory space, the value of Y at statement 65 should be limited to the number of 
characters of the longest item you wish alphabetized. The statement should be altered in the 
following manner: 

65 Y= L 

where L = length of largest item to be entered. 


Example: 

Alphabetize the following names: 

Robert Wilson 
Susan W. James 
Kent Smith 
Michael Mitchell 
Ann T. McGowan 
Alexander Lee II 
Mary Mitchell 
David Bowers 
Steven Evans 
Carol Jameson 
Linda North 

ALPHABETIZE 


(TO END PROGRAM ENTER 0) 
NUMBER OF ITEMS? 11 


ITEM 1 
ITEM 2 
ITEM 3 
ITEM 4 
ITEM 5 
ITEM 6 
ITEM 7 
ITEM 8 
ITEM 9 


WILSON ROBERT 
JAMES SUSAN W. 
SMITH KENT 
MITCHELL MICHAEL 
MCGOWAN ANN T, 
LEE ALEXANDER II 
MITCHELL MARY 
BOWERS DAVID 


EVANS STEVEN 
ITEM 10? JAMESON CAROL 
ITEM 11? NORTH LINDA 
BOWERS DAVID 
EVANS STEVEN 


JAMES SUSAN W. 
JAMESON CAROL 
LEE ALEXANDER II 
MCGOWAN ANN T. 
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MITCHELL MARY 
MITCHELL MICHAEL 
NORTH LINDA 
SMITH KENT 
WILSON ROBERT 


NUMBER OF ITEMS? 0 


5 GRAPHICS 0 

10 PRINT "ALPHABETIZE" 

11 REM - CHANGE LINE 65 TO REFLECT CORRECT VALUE OF Y 

12 REM - WHERE Y = LENGTH OF LONGEST ITEM TO BE ENTERED 
20 PRINT 

30 PRINT "(TO END PROGRAM ENTER 0)" 

40 PRINT "NUMBER OF ITEMS"; 

50 INPUT N 

60 IF N=0 THEN 330 

65 Y—30 

70 DIM A$ (Y >,B$(Y),A(NtY)iW$(3 ) 

SO FOR 1=1 TO N 
90 PRINT "ITEM ";I; 

100 INPUT A$ 

101 REM - STORE ITEM IN ARRAY "A" 

102 FOR J=1 TO LEN(AT) 

103 A ( 1 7 J) =ASC (AT- (J 7 J) ) 

104 NEXT J 

105 REM -‘FILL UNUSED CHARACTERS WITH SPACES 

106 IF LEN(AT)>=Y THEN 110 

107 FOR d=LEN(A*)+l TO Y 

108 A(I,J > =32 

109 NEXT J 

110 NEXT I 
120 M=N 

126 REM - THE SORT TECHNIQUE USED COMPARES DATA ITEMS IN 

127 REM -- DIMINISHING INCREMENTS. THE FIRST PASS COMPARE’: 
12S REM - N/2 ELEMENTS APART, THE SECOND <N/2>/2 ELEMENTS 

129 REM - AND SO ON UNTIL THE INCREMENT IS EXHAUSTED. 

130 M=INT(M/2) 

140 IF M=0 THEN 280 

150 K=N-M 

160 J=1 

170 I=d 

180 L=I+M 

182 REM -- CONVERT TWO VALUES TO STRINGS 

185 FOR X=1 TO Y 

186 A*(X,X)=CHR$(A(I,X)) 

187 B*(X,X)=CHR*(A(L,X>) 

190 NEXT X 

192 REM - COMPARE THE STRINGS 

195 IF A*<B* THEN 250 

196 REM - EXCHANGE IF NOT IN ORDER 
198 FOR X=.l TO Y 

200 Z=A(I,X) 

210 A(I,X)=A(L,X) 

220 A(L,X)=Z 
225 NEXT X 


: ITEMS 
APART 
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226 

230 

240 

250 

260 

270 

.»*». ♦*«» P** * 

/ _i 
o A 

OO 1 
.«•„ O x. 

•*"> i"i o 
•C. 

284 

cr 

4 * >, ■ 
4<n m 'p* 

286 

290 

292 

294 

296 

300 

310 

319 

320 
325 
330 


REM 
I = I —M 

IF I>=1 THEM 180 
•J=-.J+1 

IF d>K THEN 130 
GOTO 170 

REM SORT COMPLETE, OUTPUT RESULTS 
FOR 1=1 TO N 

REM - CHECK FOR FULL SCREEN (20 LINES) 

IF I /2001NT ( 1/20) THEN 290 

REM - WAIT FOR OPERATOR CUE TO GO TO NEXT SCREEN 
PRINT "PRESS -RETURN- TO CONTINUE"; 

INPUT W$ 

REM VALUES OUTPUT ONE CHARACTER AT A TIME 

FOR X=1 TO Y 

PRINT CHR$(A(I,X)); 

NEXT X 
PRINT 
NEXT I 
PR I NT 

REM - UNDIMENSION ARRAYS, RESTART PROGRAM 
CLR 

GOTO 40 
END 


OPTION 

You may wish your list alphabetized in reverse, or from highest to lowest. The necessary program 
changes are listed following the example below. 


Example: 

The scores on a math test range from 82 to 117. Put the students in order according to their scores, from 


highest to 

lowest. 

89 

Bowers 

102 

Evans 

111 

James 

100 

Jameson 

99 

Lee 

117 

McGowan 

102 

Mitchell 

82 

Mitchell 

97 

North 

91 

Smith 

108 

Wilson 


ALPHABETIZE 

(TO END PROGRAM ENTER 0) 
NUMBER OF ITEMS? 11 
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ITEM 1? 089 BOWERS 
ITEM 2? 102 EVANS 
ITEM 3? Ill JAMES 
ITEM 4? 100 JAMESON 
ITEM 5? 099 LEE 

ITEM 6? 117 MCGOWAN 

ITEM 7? 102 MITCHELL 

ITEM 8? 082 MITCHELL 

ITEM 9? 097 NORTH 

ITEM 10? 091 SMITH 

ITEM 11? 108 WILSON 

117 MCGOWAN 

111 JAMES 

108 WILSON 

102 MITCHELL 

102 EVANS 

100 JAMESON 

099 LEE 

097 NORTH 

091 SMITH 

089 BOWERS 

082 MITCHELL 

NUMBER OF ITEMS? 0 

1 REM - OPTION 195 

5 GRAPHICS 0 

10 PRINT "ALPHABETIZE" 

190 NEXT X 

195 IE A*>B* THEN 250 
198 FOR X=1 TO 30 



References 


Mendenhall, William, et al. Statistics: A Tool For the Social Sciences, North Scituate, 
Mass.: Duxbury Press, 1974. 

Paige, Lowell J., and Swift, J. Dean. Elements of Linear Algebra. 

Boston: Ginn and Company, 1961. 

Sakarovitch, M. Notes on Linear Programming. 

New York: Van Nostrand Reinhold Company, 1971. 

Spiegel, Murry R. Theory and Problems of Statistics. 

New York: Schaum’s Outline Series, Schaum 
Publishing Company, 1961. 

Thomas, George B., Jr. Calculus and Analytic Geometry, 
part one, 4th ed. Reading, Mass.: Addison-Wesley, 1968. 

U.S. Department of Commerce, Handbook of Mathematical Functions. 

National Bureau of Standards, Applied Mathematics Series 55,1964. 



Other OSBORNE/McGraw-Hill Publications 


An Introduction to Microcomputers: Volume 0 — The Beginner's Book 

An Introduction to Microcomputers: Volume 1 — Basic Concepts, 2nd Edition 

An Introduction to Microcomputers: Volume 2 — Some Real Microprocessors 

An Introduction to Microcomputers: Volume 3 — Some Real Support Devices 

Osborne 4 & 8-Bit Microprocessor Handbook 

Osborne 16-Bit Microprocessor Handbook 

8089 I/O Processor Handbook 

CRT Controller Handbook 

68000 Microprocessor Handbook 

8080A/8085 Assembly Language Programming 

6800 Assembly Language Programming 

Z80 Asembly Language Programming 

6502 Assembly Language Programming 

Z8000 Assembly Language Programming 

6809 Assembly Language Programming 

Running Wild — The Next Industrial Revolution 

The 8086 Book 

PET and the IEEE 488 BusCGPIB) 

PET/CBM Personal Computer Guide, 2nd Edition 
Business System Buyer’s Guide 
OSBORNE CP/M® User Guide 
Apple II® User’s Guide 

Microprocessors for Measurement & Control 

Some Common BASIC Programs 

Some Common BASIC Programs — PET/CBM Edition 

some Common BASIC Programs — TRS-80™ Level II Edition 

Practical BASIC Programs 

Payroll with Cost Accounting 

Accounts Payable and Accounts Receivable 

General Ledger 

8080 Programming for Logic Design 
6800 Programming for Logic Design 
Z80 Programming for Logic Design 



J 


/ 

(■ 

V 


! i \ 

i. i\ 




l 

* 

I I 
. / 


r *• 


Some Common BASIC Progams 

Atari® Edition 


You can key these 76 short programs directly into your 
Atari® 400 or 800 computer and own a powerful 
collection of financial, statistical, and mathematics 
programs. Each program is presented with complete 
source listings, documentation, and sample execution. 
Th^y will provide a rich addition to your programming 
library. : ‘ - 

\ 7 , 

• Other Osborne/McGraw-Hill publications for your 
Atari® computer include: > 


Atari® 400/800™ User Guide 

6502 Assembly Language Subroutines 

6502 Assembly Language Programming 








Atari 400/800 are trademarks of Atari. Inc. 







ISBN 0-931988-53-5 



X 



